Forum Discussion

KevAcct's avatar
KevAcct
Copper Contributor
Jul 28, 2022
Solved

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 u...
footnotes
help
  • Doug_Robbins_Word_MVP's avatar
    Doug_Robbins_Word_MVP
    Jul 29, 2022

    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
Doug_Robbins_Word_MVP's avatar
Doug_Robbins_Word_MVP
MVP
Jul 29, 2022

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