Written by Allen Wyatt (last updated August 14, 2021)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365
Christine has a document that has over 2,000 footnotes and there is a space between the last letter of the word and the footnote reference. She wonders if there is a way to delete the space before the footnote reference without having to do it manually.
The easiest way to do this is through a two-pass Find and Replace operation:
The only time that this two-pass process wouldn't work is if the footnote mark just before the actual footnote (not in the main text) was preceded by a space and you wanted that space to remain. Searching for ^f finds footnote marks in the main text and in the footnote area. If you want the retain the space in the footnote area and only remove the space in the main text, then you shouldn't use Replace All in step 4. Instead, click Find Next and replace only those instances in the main text.
You may wonder why I mentioned the two-pass Find and Replace technique as "the easiest way" when, in fact, you could use a single wildcard Find and Replace approach. Before explaining, here are the steps to use wildcards:
Note the use of the ^2 marker in step 4. If you use ^f (as was done in the previous set of steps), you'll get an error because this is not a valid wildcard code—it only works with a regular Find and Replace. If, with the insertion point in the Find What box, you click the Special button, you won't see an option for the footnote mark. In fact, none of the options available using the Special button will result in adding the ^2 marker. This seems to be an undocumented marker that has lived on among Word power users since the earliest days of the program.
Here, though, is the reason why I indicated the two-pass Find and Replace approach was easier—the ^2 marker doesn't match just footnote marks. It also matches endnote marks, which means that if your document contains both footnotes and endnotes—as some longer, more complex documents may—you could end up replacing more than you really want to replace.
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (912) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!
When you add footnotes to a document, you expect the footnote reference numbers to be visible when you print the ...
Discover MoreDo you want to have multiple footnote references to the same actual footnote in a document? The easiest way to do this is ...
Discover MoreWhen you print a document that uses footnotes, Word normally places a small line between the end of the document body ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2023-11-11 05:29:50
Mohammad
Thank you very much for your great tips. It worked for me.
2021-08-15 05:20:26
Ken Endacott
Here is a macro that does the same thing but does not cause scrolling of the document.
Sub RemoveSpaceBeforeFootnote()
Dim aRange As Range
Dim aFootnote As Footnote
For Each aFootnote In ActiveDocument.Footnotes
Set aRange = aFootnote.Reference
aRange.Collapse
aRange.MoveStart unit:=wdCharacter, Count:=-1
If aRange.Text = " " Then aRange.Text = ""
Next aFootnote
End Sub
2021-08-15 01:39:43
Tomek
I suggest a macro approach rather than a two-pass find-and-replace. The macro would find the footnote, then check whether the preceding character is a space, and if so, delete it; if not it would go to the next footnote. The macro would run a for-next loop as many times as there are footnotes. Here is the code:
Public Sub RemoveSpacesBeforeFootnotes()
Selection.HomeKey Unit:=wdStory
cnt = ActiveDocument.Footnotes.Count
For I = 1 To cnt
Selection.GoToNext wdGoToFootnote
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Text = " " Then
Selection.Delete
Else
Selection.Collapse wdCollapseEnd
'collapse if not space otherwise it will loop
'around the same footnote reference
End If
Next I
End Sub
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2024 Sharon Parq Associates, Inc.
Comments