用vb如何替换word中的页脚

来源：百度知道 编辑：UC知道 时间：2024/06/19 13:29:32
我用vb写了一段程序可以替换word中的指定字符且word的版式及字体都不改变，但是就是word中的页脚替换不了，请问如何替换，高手指点一下，谢谢

可以先在word中录制一段VB代码的宏，主要修改页脚，作参考调用：

Sub Macro1()
'
' Macro1 Macro
' 宏在 2008-5-23 由 微软用户 录制
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.TypeText Text:="2008 "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub<