在word中如何用VBA实现插入多张图片

发布网友发布时间：2022-04-30 11:20

共2个回答

热心网友时间：2022-06-21 16:27

要从两个方面考虑：
1、如何把现有文档中的图片导出？这个代码片断可以参考一下：
Set ImageStream = CreateObject("ADODB.Stream")
With ImageStream
.Type = 1
.Open
.Write ActiveDocument.InlineShapes(1).Range.EnhMetaFileBits
.SaveToFile "d:\Temp\Output.bmp"
.Close
End With
Set ImageStream = Nothing

2、如何把已经到处的图片导入到新文档中？这个函数调用可以参考一下：
ActiveDocument.InlineShapes.AddPicture

如果还是不明白的话，请补充提问。

_____
补充：
请问楼主你运行那个代码片断得到的*完整*错误信息是什么？报错的时候，系统一般会把光标移动到出错的那行代码上，你看到的是哪一行代码出错呢？
我看你贴上来的代码应该是没有什么语法上的错误，“Exit For”的确是不应该要的，但那也不是语法错误啊。

热心网友时间：2022-06-21 16:28

首先
你的图片名称应该为
0.JPG
1.JPG
2.JPG
....
9.GPG
其次
代码中:删掉exit for ,这是退出循环的意思.