如何对word中的每个小节的页面进行修改VBA

msstz

  Dim oSection As Section
          For Each oSection In Word对象.ActiveDocument.Sections
            .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
             For j = 1 To 2
      Str1 = "数据" & Format(j)
      Str2 = Sheet17.Cells(i, j)
      .Selection.HomeKey Unit:=wdStory '光标置于文件首
      If .Selection.Find.Execute(Str1) Then '查找到指定字符串
         .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
         .Selection.Text = Str2 '替换字符串
               End If
      Next
        Next

我弄了一段代码，对each小节进行替换页眉，不过没有成功
目前只能对第一节的页面修改
后面的页眉没有成功，请各位老师帮看下，怎么写好
谢谢

我觉得问题主要是在
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
这段
谢谢

msstz

Dim Word对象 As New Word.Application
With Word对象
Dim oSection As Section
          For Each oSection In Word对象.ActiveDocument.Sections
            .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
             For j = 1 To 2
      Str1 = "数据" & Format(j)
      Str2 = Sheet17.Cells(i, j)
      .Selection.HomeKey Unit:=wdStory '光标置于文件首
      If .Selection.Find.Execute(Str1) Then '查找到指定字符串
         .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
         .Selection.Text = Str2 '替换字符串
               End If
      Next
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        Next
end with

这样写比上一楼的要好
但是问题是每次生成的word文件的页码改的都不一样
每次总要漏掉一点没有修改
有没有谁有其他好的方案