Bookmarks Property Example

This example retrieves the starting and ending character positions for the first bookmark in the active document.

With ActiveDocument.Bookmarks(1)
    BookStart = .Start
    BookEnd = .End
End With

This example uses the aMarks() array to store the name of each bookmark contained in the active document.

If ActiveDocument.Bookmarks.Count >= 1 Then
    ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)
    i = 0
    For Each aBookmark In ActiveDocument.Bookmarks
        aMarks(i) = aBookmark.Name
        i = i + 1
    Next aBookmark
End If

This example applies bold formatting to the first range of bookmarked text in the selection.

If Selection.Bookmarks.Count >= 1 Then
    Selection.Bookmarks(1).Range.Bold = True
End If