Word VBA技术：设置背景色突出显示拼写错误的字词

标签：Word VBA

今天继续学习研究Word VBA，希望有兴趣的朋友一起讨论分享。

我们在写文档时，难免会写一些错别字，有时候检查好几遍可能都发现不了。然而，错别字毕竟不是什么光彩的事，特别是在重要的文稿中出现错误字会给人非常不好的印象。Word会给出一些拼写错误提示，譬如会在它认为的错字错词下显示带颜色的波浪线，但我们可以使用VBA来给错字错词更突出的显示，让你能够更方便检查文档。

下面的程序会给文档中的错字错词添加背景色：

代码语言：javascript复制

Sub HighlightMisspelledWords()
    Dim rngWord As Range
    Dim rngRange As Range

    For Each rngRange In ActiveDocument.StoryRanges
        Application.CheckSpelling Word:=rngRange
        For Each rngWord In rngRange.Words
            If Not Application.CheckSpelling(Word:=rngWord.Text) Then
                rngWord.HighlightColorIndex = wdYellow
            End If
        Next rngWord
    Next rngRange
End Sub

当然，Word认为的错字错词不一定是错的，但它至少给了你一个检查提示，让你更全面地检查文档，确保不出现错字错词。

vba

0 人点赞