主题：[求助]如何批量修改WORD页眉

以下内容为程序代码:

1 '批量修改页眉
2 Dim t As Table = Tables("员工资料")
3 For i As Integer = t.TopPosition To t.BottomPosition
4 Dim r As Row = t.Rows(i)
5 Dim fl As String = ProjectPath & "Reports\" & r("工号") & r("姓名") & ".doc" '指定目标文件
6 Dim app As New MSWord.Application
7 try
8 'Dim fileName = ProjectPath & "Reports\" & Tables("员工资料").current("编号") & " " & Tables("T").current("名称") & ".Doc"
9 'Dim fileName = ProjectPath & "Reports\" & "员工资料.Doc"
10
11 Dim doc As Object = app.Documents.Open(fl) '测试可以打开每个文件
12
13 app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
14 If app.Selection.Find.Execute("[编号]") Then '查找到指定字符串
15 app.Selection.Text ="" &r("工号") & "-" &r("姓名") & "" '此处只能用第一条记录的工号和姓名替换字符串[编号]
16 'app.Selection.Text ="测试编号" '替换字符串
17 End If
18 app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
19
20 app.Visible = True
21 catch ex As exception
22 msgbox(ex.message)
23 app.Quit
24 finally
25 'app.Quit
26 End try
27 Next