以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]VBA word插入图片问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64370)
--  作者：pcxjxjhkw
--  发布时间：2015/2/12 10:52:00
--  [求助]VBA word插入图片问题
如何用VBA代码新建一word文档，并在该文档中插入指定文件夹下的所有图片，统一设置图片格式
谢谢
--  作者：Bin
--  发布时间：2015/2/12 10:55:00
--  
狐表目录下就有个空白的WOrd文档文件. 直接用代码复制出来即可.

引用图片文件参考

[&&图片文件,宽度,高度]打印指定的图片文件，文件事先复制到Images或Attachments目录下，则只需指定文件名，例如：

[&&Denmark.png,48,48]

否则需要包括路径，例如：

[&&c:\\data\\Denmark.png,48,48]

.
--  作者：Bin
--  发布时间：2015/2/12 10:57:00
--  
再参考帮助 利用FilesYS.GetFIles  和 报表的Repalce 拼接出所有图片的引用标签, 替换掉你WORD模版里面的
--  作者：有点甜
--  发布时间：2015/2/12 10:59:00
--  

 插入图片，参考

 

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

--  作者：pcxjxjhkw
--  发布时间：2015/2/12 11:00:00
--  
用VBA如何写代码呢？
--  作者：有点甜
--  发布时间：2015/2/12 11:01:00
--  
 4楼
--  作者：pcxjxjhkw
--  发布时间：2015/2/12 11:02:00
--  
谢谢