Microsoft Office Forums - View Single Post

gmaxey · 02-14-2024, 07:50 AM

I don't think so. But after you have your footnotes inserted, you could change them to the format you want with something like this.

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oFN As Footnote
Dim oRng As Range
  For Each oFN In ActiveDocument.Footnotes
    With oFN
      .Reference.Font.Superscript = False
      .Reference.InsertBefore "["
      .Reference.InsertAfter "]"
      Set oRng = .Range.Characters(1)
    End With
    With oRng
      .Collapse wdCollapseStart
      .MoveStart wdCharacter, -2
      .MoveEnd wdCharacter, -1
      .Font.Superscript = False
      .InsertBefore "["
      .InsertAfter "]"
    End With
    Set oRng = Nothing
  Next
lbl_Exit:
  Exit Sub
End Sub

Note - This worked on a small sample document with 10 or more footnotes. Very limited testing. If it doesn't work on a larger collection of footnotes, or has manifests anomalies there we are. Nothing really I can do about it.