Question

怎么编VBA把图片放到WORD里并附上该图的名称（50分）

http://zhidao.baidu.com/question/304995220.html?quesup1

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”的确是不应该要的，但那也不是语法错误啊。