主题：[求助]斑竹大侠进来看！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