Thread: Footnote style
View Single Post
 
Old 02-18-2024, 12:36 PM
Stefan Blom's Avatar
Stefan Blom Stefan Blom is offline Windows 11 Office 2021
Moderator
 
Join Date: Aug 2011
Posts: 4,007
Stefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to all
Default

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.
Reply With Quote