Modify all endnotes (Word 2007)

[Sundog]

A user wants to make a change to all endnotes, along the lines of this macro:

Code: Select all

Sub EndnoteTab()
'
' EndnoteTab Macro
' Adds a tab after the space that follows the endnote reference no. in the Endnotes section of the document.
'
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Endnote Reference")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:=vbTab
End Sub

Refresh my memory (I've been away, getting a shoulder replaced) as to how to start at the top of the Endnote section and apply this macro for each endnote, then exit when there are no more endnotes.

Thanks for any help to get me back up to speed!

[HansV]

I hope the surgery helped and that you're recovering well!

Try this version:

Code: Select all

Sub EndnoteTab()
'
' EndnoteTab Macro
' Adds a tab after the space that follows the endnote reference no. in the Endnotes section of the document.
'
    With Selection.Find
        .ClearFormatting
        .Style = ActiveDocument.Styles("Endnote Reference")
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        Do While .Execute
            Selection.MoveRight Unit:=wdCharacter, Count:=2
            Selection.TypeText Text:=vbTab
        Loop
    End With
End Sub

[Sundog]

Got it in one! Thanks, Hans.

Recovery: I can't do this at arms length yet , but it seems to taste the same if I keep my elbow bent.