Question

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

在一个Word文件中有10个图片，希望能将这十个图片自动插入到另一个Word文件中，请问如何实现？
首先表示感谢，但是我用如下语句

Sub Macro1()
For i = 0 To 9
Selection.InlineShapes.AddPicture FileName:="E:\temp\" & i & ".JPG", LinkToFile:= _
False, SaveWithDocument:=True
Exit For
Next i
End Sub
输入以上代码为什么报错.语法错误。我看网上就是这么写的。谢谢

Answer 1

要从两个方面考虑：
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”的确是不应该要的，但那也不是语法错误啊。

Answer 2

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