vba批量替换word中图片

word中有图片有文字，图片位子不定，用VBA把word中的第一个图片替换成c:\1.jpg。。。。。。第N个替换成c:\N.jpg。新图片长宽和word对应图片大小一样。这样替换完成的wrod文件里面的格式什么都不会变，就是图片变了！
求高手指定怎么定位图片怎么替换图片

举报该问题

推荐答案 2018-04-29

可以用下面的代码试一下：（注意，操作前，需要做好备份）
’把图片统一成一种格式。（也可以统一转成浮动的格式，代码稍做修改即可）
For Each ishape In ActiveDocument.Shapes
ishape.ConvertToInlineShape
Next ishape
For i = 1 To ActiveDocument.InlineShapes.Count - 1
ActiveDocument.InlineShapes(i).Select
Selection.InlineShapes.AddPicture "c\" & i & ".jpg", linktofile:=False, savewithdocument:=True
Next

温馨提示：答案为网友推荐，仅供参考

当前网址：http://www.wendadaohang.com/zd/KK1415KWdAKAndG15G.html

其他回答

第1个回答 2018-04-29

可以的，文件发
35邮8106736箱

相似回答

vba批量替换word中图片答：可以用下面的代码试一下：（注意，操作前，需要做好备份）’把图片统一成一种格式。（也可以统一转成浮动的格式，代码稍做修改即可）For Each ishape In ActiveDocument.Shapes ishape.ConvertToInlineShape Next ishape For i = 1 To ActiveDocument.InlineShapes.Count - 1 ActiveDocument.InlineShapes(i...

怎么用word批量处理图片?答：一、删除Word中的所有图片简单快捷：只需按下Ctrl + H，在查找替换框中输入^g，或者选择图形，点击“全部替换”，图片瞬间消失。二、批量选中Word中的图片虽然常规的全选图片然后逐个复制并不高效，但我找到了一个巧妙的替代方案。首先全选文档内容（Ctrl + A），然后粘贴到新文档。接下来，在新文档中...

如何用VBA实现WORD批量替换?答：第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。Private S...

如何用VBA实现WORD批量替换?答：= False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ListView1.selectedItem = i Next MsgBox "处理完毕！", vbInformation + vbOKOnly, "消息" ListView1.selectedItem = 1 ...

求助:如何通过VBA批量选中word文档里的嵌入型图片或表格?答：提供示例代码供参考：Sub BatEditPic() Dim ShapesCount As Integer Dim i As Integer ShapesCount = ActiveDocument.InlineShapes.Count For i = 1 To ShapesCount With ActiveDocument.InlineShapes(i) '修改图片边框 With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle...

word 批量替换 VBA答：.Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ...

如何用Word宏操作处理图片?让所有图片统一操作?答：点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：\x0d\x0aSub ...

如果一次性删除WORD中的所有表格及图片答：在“开发工具”菜单中，最左侧即是“visual Basic"，如下图：二、一次删除文档中的所有图形实删除图片容易多了，用不到VBA，只用查找与替换功能就好了。实现方法韩老师以下面一页文档为例：首先：在“开始”菜单“编辑”功能区中选择“替换”：然后...

求WORD VBA代码。。批量多个替换word的页眉图片logo,最好页眉能同时加...答：问题是你知道如何运行代码吗？如果会运行代码，我可以帮你写一个，而且替换页眉图片，你需要把替换的图片路径说清楚，如果不懂怎么运行，你最好把你的文件百度云共享，然后我把代码写好之后，发你邮箱，这样你只需要在你的文档当中点击一下按钮即可 ...

大家正在搜

word vba 查找替换 word vba数字替换 vba替换word单元格内容 vba查找word替换单元格内容 vba批量将word转成e vba批量修改多个word内容 word中vba word文档中关闭vba word中vba实现查找字符功能