主题：怎样用狐表打开WORD文档时，将文档的页脚和页眉换成我特定的页脚页眉

 用foxtable操作word的vba

 具体控制页眉页脚的知识点可以去网上查一下

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    app.Documents.Open(fileName)
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
finally
    'app.Quit
End try

 参考

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.TypeText(Text:="自己的页眉")
    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

 什么意思？

 做好一个模板来引用？

 1、打开normal，拷贝页眉；

 2、复制到另一个文档的页眉中去

Dim app As New MSWord.Application
try
   
    Dim doc0 As Object = app.Documents.Open("d:\test2.doc")
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.Copy
    app.ActiveWindow.ActivePane.View.SeekView =  MSWord.WdSeekView.wdSeekMainDocument
    Doc0.Close   

    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
    app.ActiveWindow.Selection.TypeBackspace
    app.ActiveWindow.Selection.Paste
    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

用百度+msdn查找对应知识，vba代码到foxtable要一个简单的转换