Super SMart FN insertion

RRB · #1 02-14-2024, 12:53 AM

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 · #2 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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Super Glitch in my Word document	Jay Bird	Word	7	01-11-2022 12:58 PM
Curly Smart Quotes Switch to Straight Smart Quotes in New Chapters	TheWriterBloke	Word	3	03-29-2019 03:11 AM
more symbols for super/subscript numbers and letters	djc	Word	5	03-13-2015 10:54 AM
Super Problem :/	Jthomps01	PowerPoint	1	03-14-2012 10:43 AM
Super-customized formatting	mike_abc	Word	6	02-22-2012 03:40 PM