如果在文档的开始位置没有设置书签,则本示例添加一个名为“temp”的书签。

Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wpsCollapseStart
If myRange.BookmarkID = 0 Then
    ActiveDocument.Bookmarks.Add Name:="temp", Range:=myRange
End If

 

本示例显示位于选定部分的开始位置的书签编号。

MsgBox "Bookmark " & Selection.BookmarkID