通过VBA突出显示Word Doc中的所有书签

Question

我想突出显示我的Word文档中的所有书签。 当我尝试显示书签时，只会显示“ I”。 此代码不执行任何操作。

就像其中一位评论员所写的一样，我的书签的长度为0。 但是即使如此，我该如何突出显示向前2个空格？

Sub BookMarks2Bold()
Dim bm As Bookmark
Dim tx As Range

Set tx = ActiveDocument.StoryRanges(wdMainTextStory)
For Each bm In tx.Bookmarks

    bm.Range.HighlightColorIndex = wdYellow
Next

结束子

Answer 1

如果您的书签的范围是零，而您仍要突出显示文档中的某些内容，则可以扩展书签的范围，例如在文档中使用以下字符：

Sub BookMarks2Bold()
    Dim bm As Bookmark
    Dim tx As Range
    dim rng as Range

    Set tx = ActiveDocument.StoryRanges(wdMainTextStory)
    For Each bm In tx.Bookmarks
        set rng = bm.Range
        rng.MoveEnd wdCharacter ' extend by one character

        ' optionally, expand by one word
        ' rng.Expand wdWord

        rng.HighlightColorIndex = wdYellow
    Next

End Sub