Microsoft Office Forums - View Single Post

Brainiac · 06-26-2019, 09:00 AM

Hello people,

i would like to convert thousands of footnotes, that have certain properties to endnotes.

code that does not work correctly:

Code:

Sub ConvertFootnotesEndnotes02()
Dim CertainFN As Footnote
    For Each CertainFN In ActiveDocument.Footnotes
    Selection.Find.Style = ActiveDocument.Styles("Endnote")
    With Selection.Find
    .Text = "$$$" 
    .Replacement.Text = "§§§"
             CertainFN.Range.Footnotes.Convert
    End With
           Next CertainFN
lbl_Exit:
    Exit Sub
 End Sub

this humble attempt fails, it converts every footnote to endnotes

would someone please help me?