以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么在word中插入图片  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126330)

--  作者:Engineer1
--  发布时间:2018/10/18 17:13:00
--  [求助]怎么在word中插入图片

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181018170751.png
图片点击可在新窗口打开查看
如图:想要用按钮命令向表中选中的word文件插入个签名应该怎么写?表中的word 是前面报表生成的
[此贴子已经被作者于2018/10/18 17:15:31编辑过]

--  作者:有点甜
--  发布时间:2018/10/18 18:23:00
--  

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


--  作者:Engineer1
--  发布时间:2018/10/18 19:01:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181018190431.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20181018185826.png
图片点击可在新窗口打开查看
想在箭头所示位置添加图片作为电子签名,不知道该怎么去顶位置,请老师帮助。
实际上室想做个审批流程,报告---审核---批准,老师说下怎么写合理呢?
[此贴子已经被作者于2018/10/18 19:07:14编辑过]

--  作者:有点甜
--  发布时间:2018/10/18 20:31:00
--  

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

 

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


--  作者:Engineer1
--  发布时间:2018/10/18 21:04:00
--  
是word报表,但是生成的报表数据不完全,需要再添加一些数据,等领导审批完再生成一次报表。我的思路是以添加数据后的文档作为模板,再生成一次报表,但这2 次的报表文件名不能改变,所以当第一次生成报表的同时另存为一份,以另存的为模板,但命令不知道怎么写,请老师教一下。
--  作者:有点甜
--  发布时间:2018/10/18 21:11:00
--  

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

 

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

 


--  作者:Engineer1
--  发布时间:2018/10/18 21:22:00
--  
没办法啊,第一次生成的报表还需要添加一些数据才能是完整的报告,这样才可以审核,现在生成报表的同时再另存一份,命令不会写
--  作者:有点甜
--  发布时间:2018/10/18 21:31:00
--  

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

 

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

 


--  作者:Engineer1
--  发布时间:2018/10/18 21:49:00
--  
老师,是这么写吗?FileSys.CopyFile ("ProjectPath & "attachments\\Reports\\" & e.form.controls("TextBox16").Text & ".doc" ", "C:\\TestFiles2\\test.doc") 提示出错啊
[此贴子已经被作者于2018/10/18 21:50:48编辑过]

--  作者:有点甜
--  发布时间:2018/10/18 21:53:00
--  
FileSys.CopyFile (ProjectPath & "Reports\\" & e.form.controls("TextBox16").Text & ".doc", "C:\\TestFiles2\\test.doc", true)