Super SMart FN insertion

[RRB]

Hi Friends!

I think a lot has been written how to change the "FN referencer" (i.e the number in the main text area designating a FN) and the "FN referencee" (i.e the corresponding number of the FN in the FN area).

But could a macro handle this in real time (not by searching and replacing later on)?

So Word would ask "What char do you want after the FN referncer. And insert it there and on the bottom.

For example, if I want "1)" it would insert those chars on top and create a FN on the bottom starting with: "1)

In my present work I need the referncer inside square brackets "[1]" and not superscript.

Could a macro handle all these things?

Thank you

Susan



CP
MS community group

[gmaxey]

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.

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.