Group: microsoft.public.word.vba.general
From: andreas
Date: Sunday, April 06, 2008 1:00 AM
Subject: Re: access the tabstop character next to the footnote number (using VB

On Apr 4, 11:00=A0am, Helmut Weber
wrote:
> 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

Safety Articles | Usenet Groups | Usenet News | Bluegrass