Relocation of footnotes in the body text and formatting them as needed

Mazarin07 · #1 01-25-2023, 12:10 AM

I have the following macro that works almost correctly:

Code:

Sub MoveFootnotesInline()

Dim FtNt As Footnote
Dim RefNum As Long
Dim oRng As Word.Range
Dim rng As Range

Application.ScreenUpdating = False
Set doc = ActiveDocument
Set rng = doc.Footnotes(1).Range
rng.WholeStory
rng.Select
Selection.Range.HighlightColorIndex = wdGray25

For RefNum = ActiveDocument.Footnotes.Count To 1 Step -1
    Set FtNt = ActiveDocument.Footnotes(RefNum)
    Set oRng = FtNt.Reference
     With oRng
      .Collapse wdCollapseStart
      .FormattedText = FtNt.Range.FormattedText
       .Font.ColorIndex = wdRed
      .InsertBefore " [Footnote: " & RefNum
      .InsertAfter "] "
       End With
    FtNt.Delete
  Next RefNum
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub

The only problem with this code is that doesn't format the reference numbers as required (red color), they actually appear unformatted in the body text, but I would like to show them in red.

P.S.
When we should use this macro?
If you have a Microsoft Word document with many footnotes and want to convert it in e-book format, footnotes will not be shown on older e-book readers (for example PocketBook Basic), so you need to place all footnotes inline, between square brackets, and with 25% gray highlight to make them more distinctive from "normal" text. Setting red color for reference numbers is just an extra, it won't show on black&white old ebook readers, but it became an obsession for me to solve this problem too. :-)

Mazarin07 · #2 01-25-2023, 12:14 AM

There is another, shorter approach, but this ends with an "Object not found" error message for line "oFootnote.Delete".

Code:

Sub MoveFootnotes()
    Dim oFootnote As Footnote
    Dim oRange As Range
    Dim refNumber As String
    Dim text As String

    For i = ActiveDocument.Footnotes.Count To 1 Step -1
        Set oFootnote = ActiveDocument.Footnotes(i)
        Set oRange = oFootnote.Reference
        refNumber = oRange.text
        text = oFootnote.Range.text
        oRange.text = "[" & refNumber & ": " & text & "]"
        oRange.Font.Color = wdColorRed 'color the reference number to red
        oRange.HighlightColorIndex = wdGray25 'highlight the text in 25% gray
        oFootnote.Delete
    Next
End Sub

If I delete line "oFootnote.Delete" (or simply put an ' sign to make it a remark) the macro works fine, but the end result is that footnote text placed inline is red (in addition to having gray highlight), and the reference numbers are missed, there is a question mark everywhere instead of them.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Preserving formatting when turning footnotes into regular text	thiagoafdoria	Word VBA	2	01-08-2020 01:25 PM
Help needed with moving footnotes	Last Chance	Word VBA	15	06-07-2019 07:44 PM
Normal, Body Text or Body Text Indent?	Riddles	Word	3	04-08-2017 05:06 PM
Help with Tracking: Bold in body text, but not in Footnotes	Bobbety	Word	3	05-17-2015 11:17 PM
Formatting footnotes causes double footnote numbers	geirrosset	Word	5	10-29-2014 05:08 AM