On Apr 4, 11:00=A0am, Helmut Weber
> Hi Andreas,
>
> try that one:
>
> Sub Makro3a()
> Dim rngFoot As Footnote
> For Each rngFoot In ActiveDocument.Footnotes
> =A0 =A0If rngFoot.Range.Characters.First =3D Chr(9) Then
> =A0 =A0 =A0 rngFoot.Range.Characters.First.Select ' for testing
> =A0 =A0 =A0 rngFoot.Range.Characters.First.Font.Reset
> =A0 =A0End If
> Next
> End Sub
>
> --
> Greetings from Bavaria, Germany
> Helmut Weber, MVP WordVBA
> Word 2002, Windows 2000 (german versions)
Helmut, as always it is working just fine. Thank you so much. Regards,
Andreas