vba批量替换word中图片

2024年11月18日 06:14

有2个网友回答

网友（1）：

可以用下面的代码试一下：（注意，操作前，需要做好备份）
’把图片统一成一种格式。（也可以统一转成浮动的格式，代码稍做修改即可）
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

网友（2）：

可以的，文件发
35邮8106736箱