创建书签

使用Bookmarks对象的Add方法创建书签。该方法的语法格式为：

Set bm=doc.Bookmarks.Add(Name, Range)

其中，doc为当前文档；Name参数是必需的，为表示书签名称的字符串；Range参数可选，表示书签所在的文本字符序列，可以是一个连续的字符序列，也可以是一个插入点；bm为返回的Bookmark对象，即创建的书签。

下面导入win32com包，创建Word应用并使之可见。打开文档test3.docx，在第1段末尾添加一个名为"HERE"的书签。

Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Dim rng As Range
  Set rng = doc.Paragraphs(2).Range

  rng.Collapse wdCollapseEnd
  Dim bm As Bookmark
  Set bm = doc.Bookmarks.Add("MyBookMark", rng)
End Sub

在文档中按照6.1节介绍的步骤打开“书签”对话框，会发现列表中已经添加了一个名为"HERE"的书签。选择它后，单击“定位”按钮，鼠标光标会定位到第1段末尾。

新创建的书签自动添加到Bookmarks集合中，并且按照保存的先后顺序取得索引号。当需要使用其中的某个书签时，可以使用索引号或书签名称进行索引。对于刚刚创建的书签，使用下面两种方式进行索引都是可以的。

doc.Bookmarks(1)

或

doc.Bookmarks("HERE")