vba - 類似した単語のハイパーリンクを見つけて作成する Word マクロ

Question

これは私のマクロ (Macro1) のコードです:

Sub Macro1()
'
' Macro1 Macro
'
     Selection.Find.ClearFormatting
     With Selection.Find
         .Text = "REQ"
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = True
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
    Selection.Copy
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.neki.com/REQ12345678", SubAddress:="", ScreenTip:="", _
    TextToDisplay:="REQ12345678"
End Sub

このコードは、REQxxxxxxxx のテキストを見つけることには問題なく機能しますが、間違った TextToDisplay と間違ったアドレスの末尾を貼り付けます。両方の場所の REQ12345678 の代わりに、Selection.Copy で以前にコピーした同じテキストを貼り付ける必要があります。また、ドキュメントの最後に到達するまで Macro1 が実行されるように、ループなどを作成する方法もわかりません。お願い助けて！

ねえ、ハイパーリンクの作成に関する最初の問題を解決しました。ここで、その「ハイパーリンク」マクロをループする必要があります。最初のマクロをループする別のマクロを作成することにしました。これが私のコードです：

Sub Macro2()
'
' Macro2 Macro
'

Do Until ActiveDocument.Bookmarks.Exists("Konec")
Application.Run MacroName:="Macro1"
Loop
End Sub

Macro1 は完全に正常に動作しますが、ドキュメントの最後までループする方法がわかりません - 最後のブックマークまで...