Dieses Makro rückt Ihren Fußnotentext automatisch ein, damit Fußnotennummer und Text sauber ausgerichtet sind, ohne dass Sie jede Fußnote von Hand anfassen müssen.

Ziel ist es, die unten gezeigte Formatierung automatisch umzusetzen:

Das Problem ist, dass Word die automatische unterschiedliche Steuerung von Fußnotentexten und Fußnotenzeichen über die Formatvorlagen nicht zulässt. Nur die zweite Zeile kann über den hängenden Einzug der Fußnotentext-Formatvorlage gesteuert werden. So muss für jede Fußnote mit der Tabulatortaste hinter der Fußnotennummer bzw. dem Fußnotenzeichen ein Tabulator gesetzt und die erste Zeile immer manuell eingerückt werden. Dies kann mit dem folgenden Code-Snippet automatisiert werden. Der Einzug wird dann in der ersten und zweiten Zeile auf 1,5 gesetzt.

Hinweis: Da das Makro die manuellen Schritte für jede Fußnote automatisiert, kann es bei vielen Fußnoten einige Zeit dauern. Unserer Erfahrung nach dauert es etwa 40 Sekunden für etwa 70 Fußnoten. Leider kann dies innerhalb von Word nicht beschleunigt werden. Wenn Sie möchten, dass das Makro beim ersten Öffnen automatisch ausgeführt wird, ersetzen Sie bitte den Namen “FormateFootnotes” durch “AutoOpen”.

Achtung: Wenn das Makro ausgeführt wird, wandelt es die .docm-Datei in eine .docx-Datei um und speichert sie an dem von Ihnen angegebenen Ort.

Sub FormateFootnotes() 
For i = 1 To ActiveDocument.Footnotes.Count 
ActiveDocument.Footnotes(i).Range.Select 
With Selection 
.Collapse Direction:=wdCollapseStart 
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
.TypeText Text:=vbTab 
.ParagraphFormat.FirstLineIndent = CentimetersToPoints(-1.5) 
End With 
Next 
Application.FileDialog(msoFileDialogSaveAs).Show 
End Sub

Makro ausführen: siehe So fügen Sie ein Word-Makro ein und führen es aus.