Have a look at the following. I've no time just now to look at footnotes(never used them), but maybe someone else can pick this up.

[vba]
Sub Test()
Dim MyText(2, 2)
MyText(0, 0) = "Windows"
MyText(0, 1) = "Windows®"
MyText(1, 0) = "Test"
MyText(1, 1) = "Test®"

Selection.HomeKey Unit:=wdStory
For i = 0 To 1
Selection.Find.ClearFormatting
With Selection.Find
.Text = MyText(i, 0)
End With
Selection.Find.Execute
Do
With Selection.Font
If Not .Name = "Courier" Then
'or
'If .Name = "Arial" Or .Name = "Times New Roman" Then
If Not .Italic = True Then
Selection.TypeText MyText(i, 1)
Exit Do
End If
End If
End With
Selection.Find.Execute
Loop
Selection.HomeKey Unit:=wdStory
Next i
End Sub

[/vba]