- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]斑竹大侠进来看！WORD打印中如何让页眉调用数据库字段 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82926)
-- 发布时间：2016/3/28 10:42:00
-- [求助]斑竹大侠进来看！WORD打印中如何让页眉调用数据库字段
如题 见附件，各位大侠助一臂之力！
、
[此贴子已经被作者于2016/3/28 10:45:04编辑过]
-- 发布时间：2016/3/28 10:47:00
--
页眉页脚是固定的值，不能随意变动的。
-- 发布时间：2016/3/28 10:50:00
--
如果你一次只打印一个编号，可以用代码进行设置。参考
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59069&skin=0
-- 发布时间：2016/3/28 10:57:00
--
嗯嗯，一次只需要打印一个编号哦。不过因为需要保留页眉中设置好的格式，所以只能替换文字。
大红袍大侠，可以将页眉中的[报告编号] 替换为 一个指定的值吗？
-- 发布时间：2016/3/28 11:20:00
--
可以嘛可以嘛?保留原有页眉中的图片排版样式，只替换其中的编码字段
-- 发布时间：2016/3/28 11:34:00
--
参考
Dim app As New MSWord.Application
try
Dim fileName = "d:\\test.doc"
Dim doc As Object = app.Documents.Open(fileName)
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
app.ActiveWindow.Selection.WholeStory
If app.ActiveWindow.Selection.Find.Execute("[列名]") Then
app.ActiveWindow.Selection.TypeText(Text:="编号123")
End If
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
\'app.Quit
End try