主题：[求助]怎么在word中插入图片

此主题相关图片如下：qq截图20181018170751.png

1、你要把图片插入到word的哪个位置？

 

2、参考代码

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\123.doc"
    Dim doc As Object = app.Documents.Open(fileName)
   
    app.ActiveWindow.Selection.WholeStory
    If app.ActiveWindow.Selection.Find.Execute("[图片]")  Then
        app.ActiveWindow.Selection.InlineShapes.AddPicture("d:\test.jpg")
    End If
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    'app.Quit
End try

此主题相关图片如下：qq截图20181018190431.png


此主题相关图片如下：qq图片20181018185826.png

1、表格那里，记录对应的人员的名字或者对应的图片。

 

2、你这个不是word报表吗？直接引用表格里面图片列即可。

是word报表，但是生成的报表数据不完全，需要再添加一些数据，等领导审批完再生成一次报表。我的思路是以添加数据后的文档作为模板，再生成一次报表，但这2 次的报表文件名不能改变，所以当第一次生成报表的同时另存为一份，以另存的为模板，但命令不知道怎么写，请老师教一下。

不理解你为什么要这样做，每次都重新生成不就行了？

 

如果要生成word报表，代码如 http://www.foxtable.com/webhelp/scr/2890.htm

 

没办法啊，第一次生成的报表还需要添加一些数据才能是完整的报告，这样才可以审核，现在生成报表的同时再另存一份，命令不会写

1、要添加什么数据？从哪里添加数据进去？

 

2、如果单纯是另存一份，参考 http://www.foxtable.com/webhelp/scr/0342.htm

 

老师，是这么写吗？FileSys.CopyFile ("ProjectPath & "attachments\Reports\" & e.form.controls("TextBox16").Text & ".doc" ", "C:\TestFiles2\test.doc") 提示出错啊

FileSys.CopyFile (ProjectPath & "Reports\" & e.form.controls("TextBox16").Text & ".doc", "C:\TestFiles2\test.doc", true)