Microsoft Office Forums - View Single Post - [Solved] Can I replace reference numbers with the footnotes to which they refer and link.

macropod · 06-13-2020, 08:32 PM

You can't do that via Find/Replace, but it can be done via a macro:

Code:

Sub MoveFootNotes()
Application.ScreenUpdating = False
Dim RngSrc As Range, RngTgt As Range, f As Long
With ActiveDocument
  For f = .Footnotes.Count To 1 Step -1
    With .Footnotes(f)
      Set RngSrc = .Range
      Set RngTgt = .Reference
      RngSrc.End = RngSrc.End - 1
      RngTgt.Collapse wdCollapseStart
      RngTgt.FormattedText = RngSrc.FormattedText
      .Delete
    End With
  Next
End With
Set RngSrc = Nothing: Set RngTgt = Nothing
Application.ScreenUpdating = True
End Sub

For PC macro installation & usage instructions, see: Installing Macros
For Mac macro installation & usage instructions, see: Word:mac - Install a Macro