![]() |
|
![]() |
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
![]()
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.
|
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
jbaranao | Word | 3 | 02-08-2015 08:57 PM |
![]() |
j hewitt | Word | 1 | 01-05-2015 10:26 AM |
![]() |
Intruder | Excel Programming | 1 | 11-17-2012 08:24 PM |
![]() |
mosrozen | Word VBA | 2 | 06-14-2012 06:59 AM |
![]() |
Lynn O'Shea | Word | 3 | 05-18-2010 12:32 AM |