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

[andaok]

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

[pcwak]

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

[pcwak]

End Sub