MS word：用于打开/关闭某些校对设置的宏

Question

什么宏可以打开/关闭某些校对设置？（遗憾的是宏录制不会记录设置更改）

我正在寻找一种方法来打开/关闭 2 个打样设置（同时）：

• 键入时检查拼写
• 键入时标记语法错误

Answer 1

Application.Options.CheckGrammarAsYouType 和 .CheckSpellingAsYouType 正是您要找的。

例子：

Sub GrammarSpellingOn()
    Application.Options.CheckGrammarAsYouType = True
    Application.Options.CheckSpellingAsYouType = True
End Sub

Sub GrammarSpellingOff()
    Application.Options.CheckGrammarAsYouType = False
    Application.Options.CheckSpellingAsYouType = False
End Sub

要使用相同的宏打开/关闭，并弹出一个说明更改完成的窗口：

Sub GrammarSpellingOnOff()
    If Application.Options.CheckGrammarAsYouType = True Or Application.Options.CheckSpellingAsYouType = True Then
        Application.Options.CheckGrammarAsYouType = False
        Application.Options.CheckSpellingAsYouType = False
        Call MsgBox("Grammar & Spell Checking turned OFF")
    Else
        Application.Options.CheckGrammarAsYouType = True
        Application.Options.CheckSpellingAsYouType = True
        Call MsgBox("Grammar & Spell Checking turned ON")
    End If
    Application.ScreenRefresh 'refresh to add/remove spellchecker underlines
End Sub