MS Word: una macro para activar o desactivar algunas configuraciones de revisión

Question

¿Qué macro podría activar o desactivar algunas configuraciones de revisión? (Desafortunadamente, la grabación macro no registra el cambio de configuración)

Estoy buscando una manera de activar/desactivar 2 configuraciones de prueba (al mismo tiempo):

• revisar la ortografía mientras escribe
• marca errores gramaticales mientras escribes

Answer 1

Application.Options.CheckGrammarAsYouType & .CheckSpellingAsYouType es lo que estás buscando.

Ejemplo:

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

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

Para activar/desactivar usando la misma macro, con una ventana emergente que indica el cambio realizado:

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

Answer 2

Así que lo configuré un poco diferente. Lo uso principalmente cuando escribo presentaciones que contienen código. Asigné las macros a las teclas y aquí están ambas macros:

Esto ignorará todas las revisiones, por lo que eliminará esos molestos marcadores de Word.

    Sub CodeFont()
'
' CodeFont Macro
' Change font to differentiate code
'
    Selection.Font.Name = "Consolas"
    Selection.Font.Size = 11
    Selection.Font.ColorIndex = wdBlue
    Selection.NoProofing = True
End Sub

Y cuando quiero volver a escribir "normalmente"

Sub Normal()
'
' Normal Macro
'
'
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 12
    Selection.Font.ColorIndex = wdBlack
    Selection.NoProofing = False
End Sub