主题：[求助]VBA word插入图片问题

如何用VBA代码新建一word文档，并在该文档中插入指定文件夹下的所有图片，统一设置图片格式

狐表目录下就有个空白的WOrd文档文件. 直接用代码复制出来即可. .

再参考帮助 利用FilesYS.GetFIles  和 报表的Repalce 拼接出所有图片的引用标签, 替换掉你WORD模版里面的

 插入图片，参考

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    app.Documents.Open(fileName)
    app.Documents(fileName).Range(Start:=0, End:=0).InlineShapes.AddPicture(FileName:= _
        "C:\Documents and Settings\Administrator\My Documents\My Pictures\02.bmp" _
        , LinkToFile:=False, SaveWithDocument:=True)
    app.Documents.save
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

用VBA如何写代码呢？

 4楼

谢谢