Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教各位前辈 利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？


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

主题：请教各位前辈 利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 8:58:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 10:08:00 [显示全部帖子]

以下是引用xxfoxtable在2020/12/31 9:07:00的发言：
 难做，不透明

把图片的白色背景改为透明色，然后保存为png格式图片使用即可

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 13:54:00 [显示全部帖子]

试试：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=144070&replyID=43381&skin=1

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 15:13:00 [显示全部帖子]

用法差不多

    Dim fileName = "e:\问题\abc.docx"
    Dim doc As object = app.Documents.Open(fileName)
            Dim s = doc.Shapes.AddPicture(img, False, True, 插入点左边距, 插入点上边距, 图片宽,图片高)
            s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 16:04:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 21:10:00 [显示全部帖子]

试试
Dim App As New MSWord.Application
Dim doc As object = app.Documents.Open("C:\Users\Administrator\Desktop\公文助手20201224\Reports\1.doc")
Dim item  = "印章"
Dim sel = app.Selection
sel .Find.ClearFormatting
sel .Find.Text = item
sel.Find.Execute
dim obj = sel.Range
Dim s = doc.Shapes.AddPicture("C:\Users\Administrator\Desktop\dzyz\电子印章\Attachments\电子印章.jpg", False, True,0, 0, 100, 100, obj)
s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/4 17:41:00 [显示全部帖子]

doc.SaveAs(Filename:=f2)

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/4 20:06:00 [显示全部帖子]

卡片页1中的web浏览器地址直接设置为加印章后保存的文件就行了

Dim f2 As String = ProjectPath & "Reports1\ " &  Vars("姓名")  & "入党申请谈话通知书【已用印】.doc"
Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")
wb2.OfficeToolBar = True
wb2.Address=f2
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/5 9:50:00 [显示全部帖子]

word文档的处理一向都快不了，代码也就这样了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询