请教守柔：如何确定一个书签的索引号？

pH7

请教守柔：如何确定一个书签的索引号？

我想用Delphi调用VBA代码访问word文档中的书签，但是发现Delphi不支持用书签名称，只支持书签索引号，而且书签的索引号排序很杂乱，无章可循。请教守柔版主，书签的索引号是如何规定的？

守柔

以下是引用pH7在2005-8-21 10:08:15的发言：

请教守柔：如何确定一个书签的索引号？

我想用Delphi调用VBA代码访问word文档中的书签，但是发现Delphi不支持用书签名称，只支持书签索引号，而且书签的索引号排序很杂乱，无章可循。请教守柔版主，书签的索引号是如何规定的？

这个问题问得好怪啊！

VBA访问WORD，你还是用的WORD的VBA啊，无非是后台引用了WORD而已，你其中的对象，属性与方法，就是WORD中的对象属性与方法了。

对于索引号的问题，我归纳了一下，请楼主看一下：

用 Bookmarks(index) 可返回单独的 Bookmark 对象，其中 index 是书签名称或索引序号。书签名称的拼写必须完全匹配（但大小写不必匹配）。

索引序号代表书签在 Selection 或 Range 中的位置，对 Document 对象来说，索引序号代表书签在“书签”对话框的书签列表内的位置。该列表按字母顺序排列（单击“名称”可对书签列表按字母顺序进行排序）。下列示例显示 Bookmarks 集合中第二个书签的名称。

MsgBox ActiveDocument.Bookmarks(2).Name

返回书签编号，该书签位于指定的所选内容或区域的开始位置；如果没有相应的书签，则本属性返回 0。编号对应于书签在文档中的位置，1 对应于第一个书签，2 对应于第二个，以此类推。Long 类型，只读。

Sub Example()

Dim i As Bookmark

For Each i In ActiveDocument.Bookmarks

Debug.Print i.Name

Next

End Sub

Sub kk()

MsgBox Me.Bookmarks(2).Name

Me.Bookmarks(2).Range.Select

MsgBox Selection.BookmarkID

End Sub

在示例2过程中，MsgBox Me.Bookmarks(2).Name 返回的是文档（DOCUMENT）的第二个书签名，它与插入/书签对话框中的顺序是一致的；而Me.Bookmarks(2).Range.Select：

MsgBox Selection.BookmarkIDBookmarkID返回的是RANGE（SELECTION）对象中的书签索引号，它与书签对应的RANGE对象在文档中的位置有关，RANGE（START）在前的，书签索引号位置在前面。

pH7

多谢守柔