请教各位前辈利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim App As New MSWord.Application

Dim doc As object = app.Documents.Open("C:\Users\Administrator\Desktop\公文助手20201224\Reports\1.doc")

Dim s = doc.Shapes.AddPicture("C:\Users\Administrator\Desktop\dzyz\电子印章\Attachments\电子印章.jpg", False, True,300, 500, 100, 100)

s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront

app.visible = True

有点蓝老师谢谢你哈按照你的指导方法初步实现了在具体的位置加盖图片的操作

想进一步学习一下有没有办法实现在页面中查找“盖章”字样然后直接在盖章字样位置实现图片加载呢？

有点蓝老师参照你之前的论坛知识学习

下列代码我想实现在不创建标签的情况下直接查找word中的文字如果有印章就在印章字样的位置加盖电子印章图片且印章实现浮于文字之上

经过实际运行没有并没有在印章字样处加盖电子印章图片而是默认在word文档的开头直接加盖了电子印章且印章也没有实现浮于文字之上

代码如下：【怎么修改代码实现印章浮于文字之上且在印章字样之上加盖印章】

Dim app As New MSWord.Application

try

Dim fileName = "D:\问题\123.docx"

Dim doc As object = app.Documents.Open(fileName)

Dim item = "印章" '被替换的字符

Dim sel = app.Selection

sel .Find.ClearFormatting

With sel .Find

.Text = item

.Replacement.Text = ""

.Forward = True

.Wrap = MSWord.WdFindWrap.wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

sel.Find.Execute

Dim img = "D:\问题\1.png" '图片路径

Dim pic = sel.InlineShapes.AddPicture(img, False, True)

pic.Height=100 '图片高

pic.Width=100 '图片宽

Doc.save

catch ex As exception

msgbox(ex.message)

finally

app.Quit

End try

试试

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

Dim f1 As String = ProjectPath & "Reports\入党申请谈话通知书.doc"

Dim f2 As String = ProjectPath & "Reports\入党申请谈话通知书【已用印】.doc"

Dim App As New MSWord.Application

Dim doc As object = app.Documents.Open(f1)

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\电子印章.png", False, True,300, 0, 100, 100, obj)

s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront

app.visible = False

'doc.save(f2)

doc.save

app.quit

红色部分代码怎么自定义保存文件位置和文件名称呢？

红色部分代码启用后提示如图：

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

doc.SaveAs(Filename:=f2)

OK 谢谢

当前创建了一个窗体放了两个卡片组件在卡片组件中使用了两个web浏览器组件在项目中三个文件 Attachments放模板文件 Reports放模板文件生成的Word文件 Reports1\ 放用印后的文件

在点生成word按钮后生成对应数据库文件并显示在右边卡片页1中对应的web浏览器中

当点电子印章后，加载对应的电子印章图片生成并显示在右边卡片页3中对应的web浏览器中

实现效果如下：(当前操作有点繁琐且显示效率和文件生成的效率不高个人感觉体验性有待提高)

此主题相关图片如下：word加盖印章.gif

老师有没有办法直接就在卡片页1中的web浏览器中无缝显示加盖电子印章的文件呢？

根据word模板生成数据文件代码：

Dim tm As String = ProjectPath & "Attachments\入党申请谈话通知书.doc"

Dim f1 As String = ProjectPath & "Reports\ " & Vars("姓名") & "入党申请谈话通知书.doc"

Dim f11 As String = ProjectPath & "Reports\ " & Vars("姓名") & "入党申请谈话通知书.pdf"

Dim wrt As New WordReport(tm,f1) '注意这里无需指定表名

wrt.AddDataTable("党员信息","智慧党建","Sel ect * from {党员信息} where 姓名 = '" & Vars("姓名") & "'")

wrt.Build()

wrt.SaveToPDF(f11)

wrt.Quit() '退出

FileSys.CopyDirectory (ProjectPath & "Reports\", ProjectPath & "Reports1\", True)

Dim tb2 As WinForm.TabControl = e.Form.Controls("TabControl2")

tb2.SelectedIndex=0

Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")

wb2.OfficeToolBar = True

wb2.Address=f1

电子印章按钮代码：

Dim f1 As String = ProjectPath & "Reports1\ " & Vars("姓名") & "入党申请谈话通知书.doc"

Dim f2 As String = ProjectPath & "Reports1\ " & Vars("姓名") & "入党申请谈话通知书【已用印】.doc"

Dim App As New MSWord.Application

Dim doc As object = app.Documents.Open(f1)

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\电子印章.png", False, True,300, 0, 100, 100, obj)

s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront

app.visible = False

doc.SaveAs(Filename:=f2)

'doc.save

app.quit

打开地址代码：

Dim f2 As String = ProjectPath & "Reports1\ " & Vars("姓名") & "入党申请谈话通知书【已用印】.doc"

Dim tb2 As WinForm.TabControl = e.Form.Controls("TabControl2")

Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser3")

tb2.SelectedIndex=2

wb2.Address=f2

卡片页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

有点蓝老师有没有更加高效的解决思路呢

上述我操作下来根据模板生成文件然后显示然后加盖印章然后再显示用印后文书时间有点长了点效率不高体验感有点不大好

不晓得是不是因为调用的是外部word文件模板结合数据库数据的原因还是代码不够精简导致运行效率时间比较长

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

主题：请教各位前辈 利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？

主题：请教各位前辈利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？