Add Method (Bookmarks Collection) Example
This example adds a bookmark named "myplace" to the selection in the active document.
ActiveDocument.Bookmarks.Add _
Name:= "myplace", Range:= Selection.Range
This example adds a bookmark named "mark" at the insertion point.
ActiveDocument.Bookmarks.Add Name:= "mark"
This example adds a bookmark named "third_para" to the third paragraph in "Letter.doc," and then it displays all the bookmarks for the document in the active window.
Set myDoc = Documents("Letter.doc")
myDoc.Bookmarks.Add Name:="third_para", _
Range:=myDoc.Paragraphs(3).Range
myDoc.ActiveWindow.View.ShowBookmarks = True