通過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