word 2010 页脚从第二页更改文本

Question

我像这样搜索和更改页脚中的文本：

Sub 123()
    Dim xDoc As Document
    Dim xSelection As Selection
    Dim xSec As Section
    Dim xHeader As HeaderFooter
  Dim xFooter As HeaderFooter
On Error Resume Next
    Set xDoc = Application.ActiveDocument
    For Each xSec In xDoc.Sections
          For Each xFooter In xSec.Footers
            xFooter.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "text1"
                .Replacement.Text = "text2"
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xFooter
    Next xSec
    xDoc.ActiveWindow.ActivePane.Close
    If xDoc.ActiveWindow.View.SplitSpecial = wdPaneNone Then
        xDoc.ActiveWindow.View.Type = wdPrintView
    Else
        xDoc.ActiveWindow.View.Type = wdPrintView
    End If
    xDoc.Activate
End Sub

宏运行后，第一页会添加几个空行。如何使宏从文档的第二页开始工作？

更新： 我错误地描述了这个问题，它没有创建行，它添加了一个空标题。

更新 2：

我借助代码解决了问题：

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Answer 1

试试下面的代码：

Sub abc()
    Dim xDoc As Document
    Dim xSec As Section
    Dim xHeader As HeaderFooter
    Dim xFooter As HeaderFooter
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    For Each xSec In xDoc.Sections
        For Each xFooter In xSec.Footers
            If xFooter.Exists Then
                With xFooter.Range.Find
                    .Text = "text1"
                    .Replacement.Text = "text2"
                    .Wrap = wdFindContinue
                    .Execute Replace:=wdReplaceAll
                End With
            End If
        Next xFooter
    Next xSec
End Sub