如何修改VBA宏以接受拼写建议并移除重复词？

你的原宏仅处理了拼写错误，但Word中连续重复词属于语法错误范畴，不在SpellingErrors集合内，因此需要额外遍历语法错误集合来处理重复词。以下是修改后的完整宏代码：

Sub AcceptSpellingAndRemoveDuplicates()
    Dim spellErr As Range
    Dim gramErr As Range
    
    ' 关闭屏幕更新提升长文档处理效率
    Application.ScreenUpdating = False
    
    ' 处理拼写错误：自动接受第一个拼写建议
    For Each spellErr In ActiveDocument.SpellingErrors
        If spellErr.GetSpellingSuggestions.Count > 0 Then
            spellErr.Text = spellErr.GetSpellingSuggestions.Item(1).Name
        End If
    Next spellErr
    
    ' 处理重复词语法错误：自动移除重复项
    For Each gramErr In ActiveDocument.GrammaticalErrors
        ' 判断当前语法错误是否为连续重复词
        If gramErr.GrammaticalErrorType = wdGrammaticalErrorDuplicateWord Then
            ' Word会标记连续重复的第二个词为错误，直接删除该范围即可移除重复
            gramErr.Delete
        End If
    Next gramErr
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

关键说明 #

1. 错误类型区分：
   • 拼写错误：属于SpellingErrors集合，通过GetSpellingSuggestions获取修正建议。
   • 重复词：属于GrammaticalErrors集合，需通过GrammaticalErrorType = wdGrammaticalErrorDuplicateWord判断类型。
2. 重复词处理逻辑：
   Word的语法检查会将连续重复的第二个词标记为错误，因此直接删除该错误范围即可完成“移除重复词”的操作。
3. 效率优化：
   处理长文档时，关闭ScreenUpdating可以避免频繁刷新界面，大幅提升宏的运行速度。

注意事项 #

• 确保Word的语法检查功能已启用（默认状态下是启用的），否则GrammaticalErrors集合会为空，无法识别重复词。
• 如果文档中存在非连续的重复词，该宏不会处理（仅针对连续重复的情况，这也是Word语法检查默认标记的重复词类型）。

内容的提问来源于stack exchange，提问作者Johanna