[求助]请教如何在每页第一行中查找

duke008

文档中每页的第一行都有固定的一个单词：Top，我要在每页的第一行中查找“Top”，然后将它替换为一个超链接，请问如何实现？

只在第一行中查找的原因是每页其它位置也有可能出现“Top”这个单词，而我不需要其也替换为超链接。

或者查找带有超链接的“Top”也行。

[此贴子已经被作者于2005-12-3 19:08:33编辑过]

konggs

查找：“^m*C*T”

勾选通配符。

查找查找带有超链接的“Top”

按alt+f9，查找：“HYPERLINK \l ”

konggs

以下代码供参考：

但前提是把分页符替换为分节符。
Sub asd()
Dim a As Range, b%, c As Section
For Each c In ActiveDocument.Sections
Set a = c.Range.Paragraphs(1).Range
a.SetRange a.End - 4, a.End - 1
b = b + 1
ActiveDocument.Hyperlinks.Add Anchor:=a, Address:="", _
SubAddress:="a" & "b", TextToDisplay:="top"
Next c
End Sub