如何替换word页眉的文字

55420051

下面是我自己弄的代码，新手一枚，参考别的代码修改的，现在的问题是word页眉里的公司名称替换不掉，有没有大神给加一段代码能修改页眉里的文字
Sub 替换()
Dim n As String, b As String, z As String, s As String, q As String, baogao, mypath, c, i
n = Range("B2").Text
b = Range("C2").Text
z = Range("F2").Text
s = Range("G2").Text
q = Range("D2").Text
mypath = ThisWorkbook.Path & "\"
c = Array("15报告", "16报告", "17报告", "收入报告", "费用报告")
For Each i In c
Set baogao = CreateObject("word.application")
With baogao
.Visible = False
.documents.Open mypath & i
Do While .Selection.Find.Execute("这里是公司名称")
.Selection.Text = n
.Selection.homekey unit:=6
Loop
Do While .Selection.Find.Execute("这里是编号")
.Selection.Text = b
.Selection.homekey unit:=6
Loop
Do While .Selection.Find.Execute("这里是企业会计制度")
.Selection.Text = z
.Selection.homekey unit:=6
Loop
Do While .Selection.Find.Execute("这里是出报告日期")
.Selection.Text = s
.Selection.homekey unit:=6
Loop
.documents.Save
.Quit
End With
Next i
Set baogao = Nothing
End Sub

55420051

来大神帮帮忙啊

55420051

帖子要沉了

55420051

没有人知道吗

182197315

.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '设置位置在页眉
        .Selection.HomeKey Unit:=wdStory '光标置于文件首
        If .Selection.Find.Execute(Str1) Then '查找到指定字符串
           .Selection.Text = Str2 '替换字符串
        End If

55420051

加进去提示要求对象

xyxcc177

  ThisDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '设置位置在页眉
      Selection.HomeKey Unit:=wdStory '光标置于文件首
        If Selection.Find.Execute(str1) Then  '查找到指定字符串
           Selection.Text = str2 '替换字符串
        End If

55420051

xyxcc177 发表于 2018-9-10 17:21
ThisDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '设置位置在页眉
     ...

应用程序定义或对象定义错误

xyxcc177

是程序所放位置的错误
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '设置位置在页眉
      Selection.HomeKey Unit:=wdStory '光标置于文件首
        If Selection.Find.Execute(str1) Then  '查找到指定字符串
           Selection.Text = str2 '替换字符串
        End If

55420051

这段代码应该加在我的代码的哪个位置，谁能给个完整版