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

Atfon · #1 03-28-2016, 06:50 AM

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 · #2 03-28-2016, 02:31 PM

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

Atfon · #3 03-28-2016, 02:40 PM

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 · #4 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

Atfon · #5 03-29-2016, 05:51 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create footnotes from table... ¿AUTOMATICALLY?	jbaranao	Word	3	02-08-2015 08:57 PM
I want to create footnotes without numbers	j hewitt	Word	1	01-05-2015 10:26 AM
macro for change content of cell2 when content of cell1 changes	Intruder	Excel Programming	1	11-17-2012 08:24 PM
create footnotes from custom text	mosrozen	Word VBA	2	06-14-2012 06:59 AM
create letter template with fixed position fields and follow up pages	Lynn O'Shea	Word	3	05-18-2010 12:32 AM