この状態を一言でページ全体で確認したい。
If Options.CheckGrammarWithSpelling = True Then
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="WRONG!!!"
'ActiveDocument.CheckGrammar
Else
'ActiveDocument.CheckSpelling
'Selection.Comments.Add Range:=Selection.Range
End If