编写VBA宏,检查拼写错误的单词前后是否有其他单词,并给出拼写建议
创始人
2024-12-05 19:00:26
0
  1. 首先,需要使用VBA中的拼写检查功能,确定错误的单词是否存在拼写错误。可以使用以下代码来检查单元格中的拼写错误:
Function CorrectSpelling(ByVal str As String) As String
    On Error GoTo SpellCheckError
    Application.ScreenUpdating = False
    If Application.CheckSpelling(str) Then
        CorrectSpelling = str
        Exit Function
    End If
SpellCheckError:
    Dim Suggestions As Variant
    Suggestions = Application.GetSpellingSuggestions(str)
    If Not IsEmpty(Suggestions) Then
        CorrectSpelling = Suggestions(1)
    Else
        CorrectSpelling = str
    End If
    Application.ScreenUpdating = True
End Function
  1. 接下来,需要遍历文档中的所有单词,检查每个单词及其前后位置的单词是否存在拼写错误。可以使用以下代码来遍历文档中的单词:
Sub CheckSpellingBeforeAndAfter()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdRange As Word.Range
    Dim wdWords As Word.Words
    Dim wdWord As Word.Range
    Dim wdPrevWord As Word.Range
    Dim wdNextWord As Word.Range
    
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.ActiveDocument
    Set wdRange = wdDoc.Content
    
    Set wdWords = wdRange.Words
    For Each wdWord In wdWords
        If Not wdWord.SpellingErrors.Count = 0 Then
            Set wdPrevWord = wdWord.End - 1
            Set wdNextWord = wdWord.End + 1
            If Not wdPrevWord.Characters.First = wdRange.Characters.First Then
                If Not wdPrevWord.SpellingErrors.Count = 0 And Not wdPrevWord.InRange(wdWord) Then
                    MsgBox "Misspelled word found: " & wdPrevWord.Text & " " & wdWord.Text & " " & wdNextWord.Text & " Suggested correction: " & CorrectSpelling(wdPrevWord.Text & " " & wdWord.Text)
                End If
            End If
            If Not wdNextWord.Characters.Last = wdRange.Characters.Last Then
                If Not wdNextWord.SpellingErrors.Count = 0 And Not wdNextWord.InRange(wdWord) Then
                    MsgBox "Misspelled word found

相关内容

热门资讯

记者揭秘!智星菠萝辅助(透视辅... 记者揭秘!智星菠萝辅助(透视辅助)拱趴大菠萝辅助神器,扑克教程(有挂细节);模式供您选择,了解更新找...
一分钟揭秘!约局吧能能开挂(透... 一分钟揭秘!约局吧能能开挂(透视辅助)hhpoker辅助靠谱,2024新版教程(有挂教学);约局吧能...
透视辅助!wepoker模拟器... 透视辅助!wepoker模拟器哪个好用(脚本)hhpoker辅助挂是真的,科技教程(有挂技巧);囊括...
透视代打!hhpkoer辅助器... 透视代打!hhpkoer辅助器视频(辅助挂)pokemmo脚本辅助,2024新版教程(有挂教程);风...
透视了解!约局吧德州真的有透视... 透视了解!约局吧德州真的有透视挂(透视脚本)德州局HHpoker透视脚本,必胜教程(有挂分析);亲,...
六分钟了解!wepoker挂底... 六分钟了解!wepoker挂底牌(透视)德普之星开辅助,详细教程(有挂解密);德普之星开辅助是一种具...
9分钟了解!wpk私人辅助(透... 9分钟了解!wpk私人辅助(透视)hhpoker德州透视,插件教程(有挂教学);风靡全球的特色经典游...
推荐一款!wepoker究竟有... 推荐一款!wepoker究竟有透视(脚本)哈糖大菠萝开挂,介绍教程(有挂技术);囊括全国各种wepo...
每日必备!wepoker有人用... 每日必备!wepoker有人用过(脚本)wpk有那种辅助,线上教程(有挂规律);wepoker有人用...
玩家必备教程!wejoker私... 玩家必备教程!wejoker私人辅助软件(脚本)哈糖大菠萝可以开挂,可靠技巧(有挂神器)申哈糖大菠萝...