vba - 如何按位置 : VBA/Word 按顺序将所有书签元素的列表从 Word 文档获取到数组

Question

我想获取 Word 文档中的所有书签，然后将它们推送到一个数组中。书签必须按它们在文档中的位置而不是按名称排序。

前任。这是文档中的书签列表，

[bm_s]  (header)
[bm_h]  (title)
[bm_a]  (footer)

我希望书签保持其顺序，以便数组如下所示，

array {bm_s, bm_h, bm_a, }

前任。它不应该像下面这样，

array {bm_a, bm_h, bm_s, }

我从文档工作中获取了所有书签。在获取和推送到数组时，我以随机顺序获取所有书签。

Answer 1

好的，所以我想通了，

如果其他人有兴趣获取与其在文档上的位置相关的所有书签，那么这是如何完成的。

Dim objDoc As Document
Set objDoc = ActiveDocument

For i = 1 To objDoc.Bookmarks.Count
Debug.Print objDoc.Range.Bookmarks(i) 'here you can change the code to push the bookmarks in an array
Next i