Palavra MS: uma macro para ativar / desativar algumas configurações de prova

Question

Qual macro pode ativar / desativar algumas configurações de revisão? (Infelizmente gravação macro não registra a mudança de configuração)

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

• verificar a ortografia ao digitar
• marca erros de gramática ao digitar

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

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 de forma um pouco diferente. Eu principalmente uso quando estou escrevendo apresentações que têm código nele. Eu atribuí as macros às chaves e aqui estão as duas macros:

Isso irá ignorar todas as provas, então se livrar desses 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 reverter a 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