Palavra MS: uma macro para ligar/desligar algumas configurações de revisão

Question

Que macro poderia ativar/desativar algumas configurações de revisão? (Infelizmente a gravação macro não registra a alteração da configuração)

Estou procurando uma maneira de ativar/desativar 2 configurações de revisão (ao mesmo tempo):

• verifique a ortografia enquanto você digita
• marque erros gramaticais enquanto você digita

Answer 1

Application.Options.CheckGrammarAsYouType & .CheckSpellingAsYouType é o que você está procurando.

Exemplo:

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 ligar/desligar usando a mesma macro, com um pop-up informando a alteração realizada:

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

Então eu configurei um pouco diferente. Eu o uso principalmente quando estou escrevendo apresentações que contêm código. Atribuí as macros às teclas e aqui estão as duas macros:

Isso irá ignorar todas as revisões, portanto, livre-se daqueles marcadores irritantes do 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

E quando eu quiser voltar à digitação "normal"

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