Sub prefixFootnote()
Dim fn As Footnote
Dim strPrefix As String
strPrefix = "Please look at "
For Each fn In ActiveDocument.Footnotes
If Left(fn.Range.Text, Len(strPrefix)) <> strPrefix Then
fn.Range.Text = strPrefix & fn.Range.Text
End If
Next
End Sub
|