Find and Replace with Hyperlink Doc from Excel - 438 Error

[sferrier]

Thank you! This works but it does not fully format the text outside of the 1 digits. For example, in the word doc Test 1 looks like Test 1 and Test 10 looks like Test 10. The hyperlinks all go to the correct addresses though. I wrote the below to change the link formatting. I was wondering if there is a better way to do this.

Private Sub Document_()
Dim i As Integer
On Error Resume Next

For i = 1 To 100
    With ActiveDocument.Content.Find
        .Text = "Test Exhibit" + CStr(i)
    With .Replacement
        .Text = "Test Exhibit" + CStr(i)
        .Font.Underline = True
        .Font.ColorIndex = RGB(0, 0, 255)
    End With
    .Execute FindText:="", ReplaceWith:="", _
    Format:=True, Replace:=wdReplaceAll
End With
Next
End Sub