vba如何判别WORD中书签的个数?如何遍历某个书签?

Question

vba如何判别WORD中书签的个数?如何遍历某个书签?

Answer 1

mydoc.books.countdim mybb as bookfor each mybb in mydoc.books
      if mybb.name = "aaa" then exit for  
next

Answer 2

Books 属性示例本示例将查找活动文档中第一个书签的首尾字符位置。With ActiveDocument.Books(1)
    BookStart = .Start
    BookEnd = .End
End With
本示例用 aMarks() 数组来存贮活动文档每个书签的名称。If ActiveDocument.Books.Count >= 1 Then
    ReDim aMarks(ActiveDocument.Books.Count - 1)
    i = 0
    For Each aBook In ActiveDocument.Books
        aMarks(i) = aBook.Name
        i = i + 1
    Next aBook
End If
本示例将所选内容中用第一个书签标记的文本区域设置为加粗。If Selection.Books.Count >= 1 Then
    Selection.Books(1).Range.Bold = True
End If