Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么在word中插入图片


  共有558人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
Engineer1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1679 威望:0 精华:0 注册:2017/10/1 12:15:00
[求助]怎么在word中插入图片  发帖心情 Post By:2018/10/18 17:13:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1679 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/10/18 19:01:00 [只看该作者]


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 20:31:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1679 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/10/18 21:04:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 21:11:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1679 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/10/18 21:22:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 21:31:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1679 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 21:53:00 [只看该作者]

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

 回到顶部
总数 26 1 2 3 下一页