|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How can I create a macro to shift the content of all subsequent footnotes up one position?
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. |
#2
|
||||
|
||||
The proper way of doing that is by deleting the offending footnote.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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! |
#4
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
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 |