主题：[求助]斑竹大侠进来看！WORD打印中如何让页眉调用数据库字段

如题 见附件，各位大侠助一臂之力！

页眉页脚是固定的值，不能随意变动的。

 如果你一次只打印一个编号，可以用代码进行设置。参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59069&skin=0

嗯嗯，一次只需要打印一个编号哦。不过因为需要保留页眉中设置好的格式，所以只能替换文字。

可以嘛可以嘛?保留原有页眉中的图片排版样式，只替换其中的编码字段

参考

 

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