Macro to list all bookmarks

macropod · #2 02-09-2012, 03:49 PM

Hi Marrick,

Try something based on the following. As coded, it adds the list to then end of the current document, but you could change that:

Code:

Sub ListBkMrks()
Application.ScreenUpdating = False
Dim oBkMrk As Bookmark, Rng As Range, StrTxt As String, StrStory As String
With ActiveDocument
  Set Rng = .Range.Characters.Last
  If .Bookmarks.count > 0 Then
    With Rng
    .Text = vbCrLf & "Bookmark" & vbTab & "Page" & vbTab & "Line" & vbTab & "Story Range" & vbTab & "Contents"
    For Each oBkMrk In ActiveDocument.Bookmarks
      .InsertAfter vbCrLf & oBkMrk.Name & vbTab
      .InsertAfter oBkMrk.Range.Characters.First.Information(wdActiveEndAdjustedPageNumber)
      .InsertAfter vbTab & oBkMrk.Range.Information(wdFirstCharacterLineNumber)
      Select Case oBkMrk.StoryType
        Case 1: StrStory = "Main text"
        Case 2: StrStory = "Footnotes"
        Case 3: StrStory = "Endnotes"
        Case 4: StrStory = "Comments"
        Case 5: StrStory = "Text frame"
        Case 6: StrStory = "Even pages header"
        Case 7: StrStory = "Primary header"
        Case 8: StrStory = "Even pages footer"
        Case 9: StrStory = "Primary footer"
        Case 10: StrStory = "First page header"
        Case 11: StrStory = "First page footer"
        Case 12: StrStory = "Footnote separator"
        Case 13: StrStory = "Footnote continuation separator"
        Case 14: StrStory = "Footnote continuation notice"
        Case 15: StrStory = "Endnote separator"
        Case 16: StrStory = "Endnote continuation separator"
        Case 17: StrStory = "Endnote continuation notice"
        Case Else: StrStory = "Unknown"
      End Select
      .InsertAfter vbTab & StrStory & vbTab & oBkMrk.Range.Text
    Next oBkMrk
    .Start = .Start + 1
    .ConvertToTable Separator:=vbTab
    .Tables(1).Rows.First.Range.Font.Bold = True
  End With
End If
End With
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub

Bookmarks are listed alphabetically, whereas to were apparently trying to sort them by story range. You could sort the table on that column, if you wish.

Note too that the line numbers for some bookmarks will come out as -1. That's because line numbers only apply to the main story.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro VBA "Save as" with bookmarks in file name string	Dom37	Word VBA	2	10-31-2011 03:28 AM
Bookmarks for a PDF?	Ownaholic	Word	0	10-30-2010 12:27 AM
How to write a macro to find a specified name in a list of data?	Jaffa	Excel	1	10-23-2010 02:39 PM
Macro to remove duplicates in Refrences list	HowardC	Word VBA	0	05-20-2010 09:57 AM
Show bookmarks	dempen	Word	2	01-14-2010 11:47 PM