Deleting Extraneous Carriage Returns
in Footnotes and Endnotes
by Jack Lyon
During my editing career, I've often run into problems with footnotes and endnotes in Microsoft Word. Many authors have no clue about how notes are meant to work, and Microsoft certainly hasn't made it obvious. In fact, they've made it easy to mess notes up beyond repair.
One mistake authors make is to insert extraneous carriage returns before or after a note. Why? Because they don't like the positioning of the note on the page, which they're trying to make "pretty," not understanding the problems that will cause in editing and typesetting.
You can try to remove the extraneous returns like this:
1. Click View > Draft.
2. Click References > Show Notes.
Your cursor should now be in the Notes pane.
3. Click Home > Replace.
4. In the "Find What" box, enter two paragraph codes:
^p^p
5. In the "Replace With" box, enter one paragraph code:
^p
6. Click the "Replace All" button.
Word will replace some of the double returns, but not all of them. And if you try to delete some of the remaining returns, you'll get an error message:
"This is not a valid action for footnotes."
What's going on there is that not all carriage returns are created equal. Some of the returns are "special" note returns, and the only way to delete them is to delete the note itself back in the text.
The solution? A macro, of course. But a macro with a twist. As we've seen, the macro can't just find double returns and replace them with a single return. And trying to delete extra returns results in an error. So let's use that error!
Before running the macro, you must be in Draft view, with your cursor at the top of the Notes pane. (How to get there is explained above.)
In the macro, you'll see a couple of "comments," which are explanations or instructions intended for the person reading the code. Comments are preceded by a single quotation mark ('), which tells the macro to ignore the rest of the text on that line. For example, the first comment in the macro reads:
'To clean returns in endnotes rather than footnotes, change ".Footnotes" to ".Endnotes" in the following line:
And now, here's the macro:
Sub CleanReturnsInNotes()
'To clean returns in endnotes rather than footnotes, change ".Footnotes" to ".Endnotes" in the following line:
NoteCount = ActiveDocument.Footnotes.Count
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With
Selection.Find.Execute
On Error GoTo TrapTheError
While Selection.Find.Found
Selection.MoveLeft
'The following line may trigger an error!
Selection.Delete
Selection.Find.Execute
Wend
GoTo TheEnd
TrapTheError:
ErrorCount = ErrorCount + 1
Selection.MoveRight
Selection.Delete
If ErrorCount < NoteCount Then Resume Next
TheEnd:
End Sub
Let's look at some of those lines.
NoteCount = ActiveDocument.Footnotes.Count
NoteCount is a variable; that is, it's a container that can hold a numerical value—in this case, the number of footnotes in the document. We get that value with the VBA command ActiveDocument.Footnotes.Count.
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Just to be safe, these lines clear any formatting that might already be applied to the "Find What" and "Replace With" boxes in Word's find and replace feature.
The following lines, from
With Selection.Find
down to
Selection.Find.Execute
simply find any instances of double paragraph returns. The replacement text is set to nothing, as we're not trying to replace those returns with anything:
.Replacement.Text = ""
Instead, we're going to try to delete the second return, which (unless the notes are really messed up) is a regular return rather than a special note return:
Selection.MoveRight
Selection.Delete
If it's a special note return, then trying to delete it will cause an error, and the macro will execute this line—
On Error GoTo TrapTheError
—which sends the macro to this line:
TrapTheError:
Here's what happens next:
ErrorCount = ErrorCount + 1
Using the variable ErrorCount, we count the number of errors, adding 1 each time we find one. (ErrorCount is initially empty, or zero.)
Selection.MoveRight
Selection.Delete
We move right and delete the next return.
If ErrorCount < NoteCount Then Resume Next
If the number of errors is less than the number of notes, we're not through yet, as one of the remaining notes may still have a bad return next to it. So, we tell the macro to Resume operation at the next command after the error occurred. That command is:
Selection.Find.Execute
In other words, Word looks for the next occurrence of a double return. And this construction—
While Selection.Find.Found
Selection.MoveLeft
'The following line may trigger an error!
Selection.Delete
Selection.Find.Execute
Wend
—ensures that it will keep looking as long as (While) double returns are found. ("Wend" is short for "While End"—it marks the end of the While construction.)
GoTo TheEnd
When no more double returns are found, this line is executed. It exists simply to avoid executing the error trap (TrapTheError and the following lines) after the macro is finished, at which point
TheEnd:
marks the end of the whole operation.
I hope this explanation has helped you understand better how macros work, and in particular how you can actually use Word errors to force Word to do what you want it to do—something that gives me great pleasure.
Even if you don't understand everything that's going on in this macro, you can still use it to clean up extraneous returns in notes—something that should make your editorial life a little bit easier.
Jack Lyon (editor@editorium.com) owns and operates the Editorium, which provides macros and information to help editors and publishers do mundane tasks quickly and efficiently. He is the author of Microsoft Word for Publishing Professionals and of Macro Cookbook for Microsoft Word. Both books will help you learn more about macros and how to use them.
6 Comments