View Single Post
 
Old 07-12-2022, 05:44 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Since I have no idea what your 'main overhaul macro' is, I can't comment on that. Regardless, what you want is as simple as:
Code:
Sub ReFormatFtNts()
Application.ScreenUpdating = False
Dim FtNt As Footnote
With ActiveDocument.Range
  For Each FtNt In .Footnotes
    With FtNt.Range
      .Font.Reset
      .InsertBefore "[["
      .InsertAfter "]]"
    End With
  Next
End With
Application.ScreenUpdating = False
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote