access the tabstop character next to the footnote number (using VBA)

Dear Experts:

I tried to access (using VBA) the tabstop characters that are located
next to the footnote numbers of my document, but did not succeed. I am
using a hanging indent.

I would like to access (select) all the tabstop characters in my
footnotes and do the following action: range.font.reset.

Help is much appreciated. Thank you very much in advance.

Kind regards,

Andreas

Stefan
Fri Apr 04 01:15:06 PDT 2008

To access the character following the footnote number (for the first
footnote), you can use this code:

Dim r As Range
Set r = ActiveDocument.Footnotes(1).Range.Paragraphs(1).Range.Characters(2)

Note that, by default, that character is a space, not a tab.

See also http://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm.

--
Stefan Blom
Microsoft Word MVP


"andreas" wrote in message
news:d4325879-ae84-4437-afda-9967db33de65@p25g2000hsf.googlegroups.com...
> Dear Experts:
>
> I tried to access (using VBA) the tabstop characters that are located
> next to the footnote numbers of my document, but did not succeed. I am
> using a hanging indent.
>
> I would like to access (select) all the tabstop characters in my
> footnotes and do the following action: range.font.reset.
>
> Help is much appreciated. Thank you very much in advance.
>
> Kind regards,
>
> Andreas

HelmutWeber
Fri Apr 04 02:00:01 PDT 2008

Hi Andreas,

try that one:

Sub Makro3a()
Dim rngFoot As Footnote
For Each rngFoot In ActiveDocument.Footnotes
If rngFoot.Range.Characters.First = Chr(9) Then
rngFoot.Range.Characters.First.Select ' for testing
rngFoot.Range.Characters.First.Font.Reset
End If
Next
End Sub

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Word 2002, Windows 2000 (german versions)

andreas
Sat Apr 05 22:59:28 PDT 2008

On Apr 4, 10:15=A0am, "Stefan Blom" <no.s...@please.xyz> wrote:
> To access the character following the footnote number (for the first
> footnote), you can use this code:
>
> Dim r As Range
> Set r =3D ActiveDocument.Footnotes(1).Range.Paragraphs(1).Range.Characters=
(2)
>
> Note that, by default, that character is a space, not a tab.
>
> See alsohttp://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm.
>
> --
> Stefan Blom
> Microsoft Word MVP
>
> "andreas" wrote in message
>
> news:d4325879-ae84-4437-afda-9967db33de65@p25g2000hsf.googlegroups.com...
>
>
>
> > Dear Experts:
>
> > I tried to access (using VBA) the tabstop characters that are located
> > next to the footnote numbers of my document, but did not succeed. I am
> > using a hanging indent.
>
> > I would like to access (select) all the tabstop characters in my
> > footnotes and do the following action: range.font.reset.
>
> > Help is much appreciated. Thank you very much in advance.
>
> > Kind regards,
>
> > Andreas- Hide quoted text -
>
> - Show quoted text -

Thank you so much. It worked. Regards, Andreas

andreas
Sat Apr 05 23:00:02 PDT 2008

On Apr 4, 11:00=A0am, Helmut Weber
<HelmutWe...@discussions.microsoft.com> 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