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

我想突出显示我的Word文档中的所有书签。当我试图展示书签时，我只能看到“我”。而这段代码什么都不做。突出显示Word文档中的所有书签通过VBA

就像其中一位评论员写道，我的书签长度为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

末次

来源

2016-10-13 Dombey

可能是因为您的书签长度为“零”。换句话说，您可以在书签点看到“插入”光标提示，但要突出显示至少需要一个字符的内容。您可能正在寻找突出显示的单词或句子。您必须在选择书签点之后选择您想要突出显示的内容。 – PeterT

如果您的书签是零的范围，你还是要突出显示文档的东西，你可以扩展书签范围，例如请在文档中使用以下字符：

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

来源

2016-10-14 08:47:47

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

回答

相关问题