Managing Footnotes (Endnotes) in a document

[ChrisGreaves]

FWIW I couldn't quickly find anything to help me manage ("expand", "test", "inflate", "elaborate", "document", "puzzle over" etc.) a vast range of footnotes I'd made in creation of a large body of text.
So I wrote this:-

Code: Select all

Sub TESTFootnotes()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim ftn As Footnote
    For Each ftn In doc.Footnotes
        Dim rng As Range
        Set rng = doc.Range
        rng.Start = ftn.Reference.Start
        Set rng = rng.Paragraphs(1).Range
        rng.Select
    Next ftn
End Sub

Now that I've got my footnotes, I'm not sure what I want to do with them, but I figure I can do what I want, once I've identified the brief footnote text and its parent paragraph.

My first task is to inflate the 3-word footnote to a serious descriptive text, so I'll probably print out to a table in the working working document the footnote number, the footnote text and the host paragraph. In the working document I'll elaborate on the footnote text, then splice the inflated text back into the original document. I'd do this if I were outsourcing the job to a trusted Technical Writer. heh heh!