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

好的，谢谢

 什么意思？

 做好一个模板来引用？

 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要一个简单的转换

我copy过去的页眉字体对，格式怎么都是左对齐了，我想让它居中，请有点甜再给我完善下代码呗