How can I create a macro to shift the content of all subsequent footnotes up one position?

[Atfon]

This is the scenario I wish to try to address:

I have a Word document with thousands of footnotes. At one point in the document, a blank footnote was entered. Because of this, all subsequent footnotes are shifted down one position. How can I generate a macro to move the content of all subsequent footnotes up one position, thus replacing the blank footnote with the correct information and moving all subsequent footnotes up as well?



Thank you for your time and suggestions.

[macropod]

The proper way of doing that is by deleting the offending footnote.

[Atfon]

I apologize that my original post was not clear enough here. Let me make a more concrete example.

Footnote 200 is blank
Footnote 201 contains the information that should be in the position of Footnote 200 and so on through the rest of the document. All subsequent footnotes need to be moved up one position.

Simply deleting the blank Footnote 200 will not resolve the issue because the footnote that had been number 201 will be in the wrong position in the document and all subsequent footnotes would remain in the wrong position.

Thanks again!

[macropod]

In that case, try:

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

[Atfon]

Brilliant! Thank you, Paul. Turning off Screen Updating really speeds things up.