Printing a Bookmark List with WordBasic

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 WordBasic macro inserts the bookmark list at the insertion point:

Sub MAIN
InsertPara
Insert Chr$(12)
Insert "Bookmarks for " + FileName$()
InsertPara
For J = 1 To CountBookmarks()
    Insert Chr$(9) + BookmarkName$(J)
    InsertPara
Next
Insert Chr$(12)
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 page 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.