Jak wyświetlić wszystkie przypisy dolne i końcowe?

Przypis dolny to element stosowany głównie w naukowych tekstach, artykułach, książkach oraz innych publikacjach, który umożliwia dodanie dodatkowej informacji lub odniesienia do konkretnego fragmentu tekstu. Przypisy dolne zazwyczaj umieszczane są na dole strony i zawierają szczegółowe informacje, cytaty, odwołania do literatury lub wyjaśnienia, które są istotne dla zrozumienia treści głównej.

Przypis końcowy, znany również jako przypis bibliograficzny, jest sposobem cytowania źródeł w tekście, który umożliwia czytelnikowi odnalezienie pełnych informacji o cytowanym materiale na końcu tekstu, najczęściej na osobnej stronie lub na końcu rozdziału, lub na końcu książki. Przypisy końcowe są szczególnie popularne w niektórych dziedzinach, takich jak humanistyka i nauki społeczne, a także w niektórych wydawnictwach naukowych, gdzie są preferowane ze względu na estetykę i czytelność tekstu. Są również stosowane w niektórych stylach redakcyjnych, na przykład w stylu Chicago czy APA (American Psychological Association).

Jeśli jesteś redaktorem, to być może masz potrzebę np. wyeksportować wszystkie przypisy dolne lub przypisy końcowe do osobnego pliku.

Oto prosta pętla For Each, która wypisuje wszystkie przypisy dolne:

Sub WypiszWszystkiePrzypisyDolne()
    Dim Przypis As Footnote
    
    For Each Przypis In ActiveDocument.Footnotes
        Debug.Print Przypis.Range.Text
    Next Przypis
End Sub

Bardzo podobna jest pętla wypisująca wszystkie przypisy końcowe:

Sub WypiszWszystkiePrzypisyKońcowe()
    Dim Przypis As Endnote
    
    For Each Przypis In ActiveDocument.Endnotes
        Debug.Print Przypis.Range.Text
    Next Przypis
End Sub