You appear to be using ad blocking software. While I respect your right to do so, please be aware
that the minimal advertising on this site helps defray the cost of providing this facility, and I would therefore ask that you turn off
the blocker while browsing this site.
Many people access the material from this web site daily.
Most just take what they want and run. That's OK, provided they
are not selling on the material as their own; however if your
productivity gains from the material you have used, a donation
from the money you have saved would help to ensure the continued
availability of this resource. Click the appropriate button
above to access PayPal.
Add the catchwords from the top of the following page to the
A questioner in a Word forum wanted a means of adding catchwords - the first word (or words)
from the top of the following page - to the footer of his document, as shown in the example below.
Word has no integral method of doing this - the closest it can manage is the Styleref field,
but that can only reproduce information from the current page. A different method had to be found.
The solution I have produced requires that the first word(s) on each page after the first is(are)
given a numbered bookmark in which the number relates to the page on which the footer will appear.
i.e. the word(s) bookmarked on page 2 will be reproduced on page 1 and will have the corresponding
number 1 in the bookmark name. For the sake of this exercise I chose to use the bookmark name Wordn
where n is the number of the previous page.
This information is then reproduced in the footer by means of a conditional field construction (second illustration).
The following macro will bookmark the first word(s) on each page but the first of the finished document.
The macro prompts for the number of words to be bookmarked (three in the above example) - the default is 1.
The 'BookmarkCatchwords' macro should not be run until all other editing of the
document is completed as further editing will probably change which words are first on the pages,
however running the macro again will update the bookmarks to show the correct values. I have included a macro to delete the bookmarks.
Important note for users:
Word documents are formatted with reference to
the active printer driver. Changing the active printer, which would
include changing to a PDF driver that functions as a printer driver,
is likely to change the layout of the document sufficiently for the
selected catchwords to be incorrect. If you change the printer
driver, then reset the catchwords, using the macros, to allow for
the change of layout.
The Macro Code
'Bookmarks the first word on each page
Dim Count As Long
Dim x As Long
Dim bName As String
Dim oRng As Range
Const sNumber As Long = 3
'Set the number of words to bookmark
Count = ActiveDocument.BuiltInDocumentProperties("Number of Pages")
For x = 1 To Count - 1
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext
Set oRng = Selection.Range
oRng.MoveEnd wdWord, sNumber
bName = "Word" & x
ActiveDocument.Bookmarks.Add Range:=oRng, Name:=bName
Remove the bookmarks inserted by the previous macro.
Dim oBm As Bookmark
For Each oBm In ActiveDocument.Bookmarks
If Left(oBm.Name, 4) = "Word" Then
Insert the field codes
You may find it simpler to manually insert the fields in the footer; however the following macro
will insert the fields as shown in the second illustration at the current cursor position.
Open the footer view, place the cursor and run the following macro. Toggle the display of fields with ALT+F9
A catchword is a word placed at the foot of a handwritten
or printed page that is meant to be bound along with other pages in
a book. The word anticipates the first word of the following page.
It was meant to help the bookbinder or printer make sure that the
leaves were bound in the right order or that the pages were set up
in the press in the right order.