Forum Discussion

KevAcct's avatar
KevAcct
Copper Contributor
Jul 28, 2022

Help with creating Word macros for footnotes

Hi everyone, I'm new here and a non-techie so please excuse any mistakes. I was directed here by the Microsoft support chat team.

 

I write a lot of long essays in Word, and I use footnotes. When using footnotes, Word puts the footnote's text into a separate section at the bottom and leaves only the superscript number for the footnote in the main text body.

 

Long story short, I've written my essays using this footnotes function, but I cannot have this format. I need the footnote in the main text body and not separated into a bottom footnote section.

 

What I've been doing is going back one-by-one and copying the footnote's text from the separate bottom section and pasting it into the main text body and then putting it into brackets, for example: [Footnote 25, Office.com]

 

I know with macros we're able to automate certain repetitive functions, is there a way to do this using Macros? So that each footnote within the Word document is moved from the bottom section and pasted into the main text body (instead of the superscript number only) and put into brackets like how I've been doing? 

 

Thank you for any and all help, ideas, solutions/alternative solutions! 

  • KevAcct Use a macro with the following code:

     

    Dim i As Long
    With ActiveDocument
        For i = .Footnotes.Count To 1 Step -1
            With .Footnotes(i)
                .Reference.InsertBefore "[Footnote " & i & " - " & .Range.Text & "]"
                .Reference.Delete
            End With
        Next i
    End With
  • KevAcct Use a macro with the following code:

     

    Dim i As Long
    With ActiveDocument
        For i = .Footnotes.Count To 1 Step -1
            With .Footnotes(i)
                .Reference.InsertBefore "[Footnote " & i & " - " & .Range.Text & "]"
                .Reference.Delete
            End With
        Next i
    End With

Resources