Daniel hat eine wissenschaftliche Arbeit, die viele Fußnoten verwendet. Im Moment hat er Fußnoten am Ende jedes Satzes. Er möchte alle Fußnoten innerhalb eines Absatzes zu einer einzigen Fußnote am Ende des Absatzes zusammenfassen. Er fragt sich, ob es eine Möglichkeit gibt, dies automatisch zu tun.

Es gibt keine Möglichkeit, dies automatisch zu tun, aber Sie können es mit einem Makro tun. Das Makro muss lediglich jeden Absatz im Dokument durchgehen und prüfen, ob Fußnoten vorhanden sind. Unter der Annahme, dass dies der Fall ist, werden diese verkettet, die Fußnoten gelöscht und eine neue Fußnote mit dem verketteten Text am Ende des Absatzes hinzugefügt. Hier ist ein Makro, das genau das tut:

Sub MoveFootnotes()

Dim p As Paragraph     Dim iFN As Integer     Dim J As Integer     Dim oCurPar As Object     Dim sTemp As String

For Each p In ActiveDocument.Paragraphs         sTemp = ""

iFN = p.Range.Footnotes.Count         For J = iFN To 1 Step -1             sTemp = p.Range.Footnotes(J).Range.Text & " " & sTemp             p.Range.Footnotes(J).Delete         Next J         sTemp = Trim(sTemp)

If sTemp > "" Then             Set oCurPar = p.Range             oCurPar.Collapse Direction:=wdCollapseEnd             oCurPar.MoveEnd Unit:=wdCharacter, Count:=-1             ActiveDocument.Footnotes.Add Range:=oCurPar, Text:=sTemp         End If     Next p End Sub

Beachten Sie, dass das Makro den Fußnotentext für jeden Absatz in die sTemp-Zeichenfolge verkettet. Dies wird dann verwendet, wenn die Fußnote am Ende des Absatzes hinzugefügt wird. Dies hat einen Nachteil für das Makro: Es kopiert nur Text, keine Formatierung für den Text.

Wenn Sie beispielsweise eine Reihe von Fußnoten haben, die Zitate zu Büchern enthalten, stehen die Chancen gut, dass diese Buchtitel kursiv formatiert sind.

Nach dem Ausführen des Makros ist die Kursivschrift nicht mehr vorhanden, obwohl der gesamte Text vorhanden ist. (Es gibt keine Möglichkeit, die intakte Formatierung in die neue Fußnote zu übertragen.)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13767) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.