Question : Adding text in front of all footnotes

Dear Experts:

I need to add the string 'please look at' in front of all footnotes of my word-document.

Help is much appreciated.

Thank you very much in advance.

Regards, Andreas

Answer : Adding text in front of all footnotes

How about this which will only do it the once?

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
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
Random Solutions  
 
programming4us programming4us