You can set a hanging indent for your Footnote Text style and then add the following pair of macros to your Normal.dotm:
Sub InsertFootnote()
'Codefrom wordmvp.com, modified by Stefan Blom
ActiveDocument.Footnotes.Add Range:=Selection.Range
With Selection
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter "." & vbTab
.Collapse wdCollapseEnd
End With
ActiveWindow.ScrollIntoView Selection.Range
End Sub
Sub InsertFootnoteNow()
'Code from wordmvp.com, modified by Stefan Blom
ActiveDocument.Footnotes.Add Range:=Selection.Range
With Selection
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter "." & vbTab
.Collapse wdCollapseEnd
End With
ActiveWindow.ScrollIntoView Selection.Range
End Sub
The macros will override the built-in commands to add footnotes and run the code instead. They will apply to future footnotes that you create in Word.
__________________
Stefan Blom
Microsoft Word MVP
Microsoft 365 apps for business
Windows 11 Professional
Last edited by Stefan Blom; 02-19-2024 at 01:34 AM.
|