Converting certain footnotes to endnotes

[Brainiac]

Hello people,

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

code that does not work correctly:

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?

[gmaxey]

Maybe:

Sub ConvertFootnotesEndnotes02()
Dim CertainFN As Footnote
  For Each CertainFN In ActiveDocument.Footnotes
    If InStr(CertainFN.Range.Text, "$$$") > 0 Then
      CertainFN.Range.Text = Replace(CertainFN.Range.Text, "$$$", "§§§")
      CertainFN.Reference.Footnotes.Convert
    End If
  Next CertainFN
lbl_Exit:
  Exit Sub
End Sub

[Brainiac]

Dear Craig,



thank you very much for your kind help. Your code works excellently for me. Unfortunately, the search term "§§§" has an unfavorable position. It stands directly in front of the footnote sign in the footnote with style "Endnote" and can't be found this way. But by a small trick I could change the default and managed to do the job with your code.



Thank you

[Brainiac]

Although i applied character style formats before converting to endnotes, I just noticed that the character styles are lost during conversion.


Is there a way to avoid this failure during conversion?


Edit: This only occurs with Word 2003
With Word 2016 it works like a charm