Written by Allen Wyatt (last updated September 18, 2021)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and 2021
Word provides a very powerful bookmark facility that allows you to assign names to either individual positions in your document or to text selections. As you work more with Word, and particularly in long documents, it would be helpful to periodically print a list of bookmarks. Unfortunately, Word does not provide an automatic method of printing bookmarks, as it does with other document-related information. The quickest way to print a bookmark list is to just insert the list in your document and then print it. The following VBA macro inserts the bookmark list at the insertion point:
Sub BkMkList1() Dim J as Integer Selection.TypeParagraph Selection.InsertBreak Type:=wdColumnBreak Selection.TypeText Text:="Bookmark list for " Selection.TypeText Text:=ActiveDocument.Name Selection.TypeParagraph For J = 1 To ActiveDocument.Bookmarks.Count Selection.TypeText Text:=Chr(9) Selection.TypeText Text:=ActiveDocument.Bookmarks(J).Name Selection.TypeParagraph Next J Selection.InsertBreak Type:=wdColumnBreak End Sub
When you run the macro, a heading indicating the name of the file will be inserted, followed by each bookmark in the file. These will be in alphabetic order. The bookmark list has a column break before it and after it, as well. You can then print out the single page that contains the bookmark list. When you are done printing, you can delete the bookmark list.
You should note that the macro will print all the bookmarks in the document, including any system-generated bookmarks. If you want to exclude those, then you can use a slightly modified version of the macro, like this:
Sub BkMkList2() Dim J as Integer Selection.TypeParagraph Selection.InsertBreak Type:=wdColumnBreak Selection.TypeText Text:="Bookmark list for " Selection.TypeText Text:=ActiveDocument.Name Selection.TypeParagraph For J = 1 To ActiveDocument.Bookmarks.Count With ActiveDocument.Bookmarks(J) If Left(.Name, 1) <> "_" Then Selection.TypeText Text:=Chr(9) Selection.TypeText Text:=.Name Selection.TypeParagraph End If End With Next J Selection.InsertBreak Type:=wdColumnBreak End Sub
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (8880) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and 2021. You can find a version of this tip for the older menu interface of Word here: Printing a Bookmark List.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2021 or Microsoft 365. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word Step by Step today!
Tables are a great way to organize information in a document. At some point you may want a cell in a table to contain the ...
Discover MoreNeed to get rid of a lot of bookmarks all at once? Word doesn't provide a way to do it, but you can use the short macro ...
Discover MoreWhen you do a search and replace operation in Word, it is possible that you could inadvertently wipe out a bookmark or ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2021-09-18 05:07:58
Ken Endacott
A useful addition is to print out the bookmark followed by the first 30 characters of the bookmarked text . The modified macro is:
Sub BkMkList3()
Dim J As Integer
Selection.TypeParagraph
Selection.InsertBreak Type:=wdColumnBreak
Selection.TypeText Text:="Bookmark list for "
Selection.TypeText Text:=ActiveDocument.Name
Selection.TypeParagraph
For J = 1 To ActiveDocument.Bookmarks.Count
Selection.TypeText Text:=Chr(9)
Selection.TypeText Text:=ActiveDocument.Bookmarks(J).Name & _
Chr(9) & Left(ActiveDocument.Bookmarks(J).Range.Text, 30)
Selection.TypeParagraph
Next J
Selection.InsertBreak Type:=wdColumnBreak
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 © 2025 Sharon Parq Associates, Inc.
Comments