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

怎样用狐表打开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

能直接给我写一段代码么，比如我的电脑d:\test.doc文件，原来文件的页脚页眉我先自动把它去掉，然后换成我自己设置好的页脚页眉，然后打开。非常感谢！！！

 参考

 

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

以前的页眉如何去掉？

谢谢

 

新的页眉加上了，但旧的页眉没有去掉

 

 

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

这样设置完页脚和页眉后，页脚页眉的字体怎么修改呀？有办法么

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
    app.ActiveWindow.Selection.Font.Size = 18
    app.ActiveWindow.Selection.TypeBackspace
    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