| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 552 人关注过本帖
标题:Word文档中固定模板的表格中的图片另存为文件的问题
只看楼主 加入收藏
预言家
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-12-20
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
Word文档中固定模板的表格中的图片另存为文件的问题

Word文档中有多个表格,每个表格都是固定样式的。
我需要把表格指定位置的图片另存到一个文件夹中,并按需求进行命名。

如果能够直接复制该Word文档中的图片,粘贴到另一个Word文档的指定位置,也可以不存放到文件夹中了。

mrange=JccgWord.Documents(1).range(JccgWord.Documents(1).Tables(i).Cell(11, 1).Range.start,JccgWord.Documents(1).Tables(i).Cell(11, 1).Range.end)

我现在能够选中该图片,但是不会操作它。
有关于VFP操作Word的帮助文档也非常感谢。
附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 表格 固定 文档 图片 Word 
2020-01-10 11:53
xuminxz
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:455
专家分:1359
注 册:2011-5-8
收藏
得分:7 
用粘贴板导出图片质量很差。可以将文档另存为HTML文件图片就出来了,如果量大想改名可以从HTML文件中找到对应的文件名。
也可以用 WinRAR 等解压工具将 DOCX  文件解压得到imageXX 文件,但XX是按图片加入文档先后顺序编排的数字。
如果不知道(一般可能都不知道吧)加入的顺序,可以按图片在文档中的顺序复制到一个新的 DOCX  文件中,然后解压,得到的imageXX 文件顺序与在文档中的顺序一致了,再改名就很方便了。
 在原文件中读出图片到粘贴板
mrange.select
mrange.Copy

复制到新文件中。
 newdoc.Paste

[此贴子已经被作者于2020-1-10 18:23编辑过]


dBase有人接盘了。
2020-01-10 13:21
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:261
帖 子:7429
专家分:33262
注 册:2014-5-20
收藏
得分:7 
oWord = CREATEOBJECT("Word.Application")
oWord.Documents.Open("C:\TEMP\3333.docx")
FOR i=1 TO oWord.ActiveDocument.InlineShapes.Count
    oWord.ActiveDocument.InlineShapes[i].Range.CopyAsPicture &&将图片放到剪贴板
    接下来可以进行粘贴处理或将剪贴板的内容保存到文件
ENDFOR

3333.docx是一个压缩包文件,可用WinRAR解压,图片文件存放路径是 3333.docx\word\media
2020-01-10 22:05
donotspam
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:96
专家分:109
注 册:2016-2-28
收藏
得分:7 
很好!
2020-01-11 00:46
快速回复:Word文档中固定模板的表格中的图片另存为文件的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.055139 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved