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