Microsoft Office Forums - View Single Post

gmayor · 04-11-2015, 12:05 AM

The following will do that, however if you are working with bookmarks, you should find http://www.gmayor.com/BookmarkandVariableEditor.htm useful:

Code:

Sub BMNames()
Dim oBM As Bookmark
Dim oRng As Range
Dim strList As String
    strList = ""
    If ActiveDocument.Bookmarks.Count > 0 Then
        For Each oBM In ActiveDocument.Range.Bookmarks
            strList = strList & oBM.name & vbCr
        Next oBM
        ActiveDocument.Range.InsertParagraphAfter
        Set oRng = ActiveDocument.Range
        oRng.Collapse 0

        oRng.Text = strList & vbCr & "The active document contains " & _
                    ActiveDocument.Bookmarks.Count & " bookmarks."
    Else
        MsgBox "There are no bookmarks in the document"
    End If
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub