Microsoft Office Forums - View Single Post - [Solved] How can I create a macro to shift the content of all subsequent footnotes up one position?

macropod · 03-28-2016, 03:16 PM

In that case, try:

Code:

Sub TransferFootNotes()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range
With ActiveDocument
  For i = 201 To .Footnotes.Count
    Set Rng = .Footnotes(i).Range
    .Footnotes(i - 1).Range.FormattedText = Rng.FormattedText
  Next
  .Footnotes(.Footnotes.Count).Delete
End With
Application.ScreenUpdating = True
End Sub