word文档中书签在开发中的应用

书签是定位用的，比如说，在编辑或阅读一篇较长的WORD文档时，想在某一处或几处留下标记，以便以后查找、修改，便可以该处插入一书签。 
具体步骤如下： 
1.添加书签 
选定要为其指定书签的内容，或单击要插入书签的位置。 
单击“插入”菜单中的“书签”命令。 
在“书签名”下，键入或选择书签名。 
单击“添加”按钮。 
注意： 书签名必须以字母开头，可包含数字但不能有空格。可以用下划线字符来分隔文字，例如，“标题_1”。 
2.显示文档中的书签 
单击“工具”菜单中的“选项”命令，然后单击“视图”选项卡。 
选中“书签”复选框。 
如果已经为一项内容指定了书签，该书签会以括号([…])的形式出现（括号仅显示在屏幕上，不会打印出来）。如果是为一个位置指定的书签，则该书签会显示为 I 形标记。 
3.定位到指定书签 
单击“插入”菜单中的“书签”命令。 
在“排序依据”处，选择所需的书签名显示顺序。 
如果要显示隐藏的书签，例如交叉引用，请选中“隐藏书签”复选框。 
在“书签名”下，单击要定位到书签。 
单击“定位”按钮。 
3.删除书签 
单击“插入”菜单中的“书签”命令。 
示范 
单击要删除的书签名，然后单击“删除”按钮。

怎样用vb编程得到word文档中书签的名字？

---

Private Sub Command1_Click()
    Dim i As Integer
    Dim objDoc As Document
    Dim strFilePath As String
    
    strFilePath = "c:/1.doc"
    If Dir(strFilePath, vbNormal) = "" Then
        Exit Sub
    End If
    
    Set objDoc = GetObject(strFilePath)
    objDoc.Activate
    
    For i = 1 To objDoc.Bookmarks.Count
        MsgBox objDoc.Bookmarks.Item(i).Name
    Next i
    
    objDoc.Close
    Set objDoc = Nothing