页眉文本位置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现可以用代码对word的页眉添加一个文本，现想在页眉靠左、居中和靠右三个位置分别添加三个不同的文本，如何实现？

Dim app As New MSWord.Application

try

Dim doc = app.Documents.Open("f:\123.docx")

app.ActiveWindow.View.Type = MSWord.WdViewType.wdOutlineView

app.ActiveWindow.View.SeekView = MSWord.WdSeekView.wdSeekPrimaryHeader

app.ActiveWindow.ActivePane.Selection.InsertAfter( "左边中间右边" )

doc.save

doc.close(Nothing,Nothing,Nothing)

'app.Visible = True

catch ex As exception

msgbox(ex.message)

finally

app.Quit

End try

有一个本地word文本，想给他加上一个表格式的页眉，其中页眉中有页码和页数，且引用了字段，可以实现吗？

我要设计的页眉比较复杂，如附图

此主题相关图片如下：页眉.jpg

1、看懂这个

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

2、如果要插入到一个已经存在的word里面，参考

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

3、不会做，具体实例发上来测试。

还是得麻烦老师了，附件里“未加页眉”是打算添加的文本，点击控件后选择该文本后，自动生成“加完页眉”的样式。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:页眉添加.rar

参考代码

Dim app As New MSWord.Application
Dim app2 As New MSWord.Application
try
    Dim fileName = ProjectPath & "页眉模板.doc"
    Dim doc As Object = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    Dim r = Tables("表A").Current
    If app.ActiveWindow.Selection.Find.Execute("[名称]") Then
        app.ActiveWindow.Selection.TypeText(Text:=r("名称"))
    End If
    If app.ActiveWindow.Selection.Find.Execute("[发布日期]") Then
        app.ActiveWindow.Selection.TypeText(Text:=r("发布日期"))
    End If
    If app.ActiveWindow.Selection.Find.Execute("[实施日期]") Then
        app.ActiveWindow.Selection.TypeText(Text:=r("实施日期"))
    End If
    app.ActiveWindow.Selection.WholeStory
    If app.ActiveWindow.Selection.Find.Execute("[版本]") Then
        app.ActiveWindow.Selection.TypeText(Text:=r("版本"))
    End If
    doc.saved = True
    Dim count = doc.Characters.Count
    Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
    rng.Select()   '全选
    rng.Copy()   '拷贝


    Dim doc2 As Object = app2.Documents.Open(ProjectPath & "未加页眉.doc")

    app2.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app2.ActiveWindow.Selection.WholeStory
    app2.ActiveWindow.Selection.paste
    app2.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument

    app2.Visible = True
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
    app2.quit
finally
    'app.Quit
    'app2.quit
End try

下载信息
点击浏览该文件:页眉添加.rar

主题：页眉文本位置