MS word: uma macro para ativar / desativar algumas configurações de verificação

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

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

verifique a ortografia enquanto digita
marque erros gramaticais enquanto digita

microsoft-word macros microsoft-word-2013

— Lisa
fonte

Respostas:

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 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

— JollyMort
fonte

Muito obrigado! Eu editei sua resposta para adicionar o resto do código para tun-lo ON-OFF com a mesma macro

— Lisa

De nada! Pensava em escrevê-lo como alternar: "Application.Options.CheckGrammarAsYouType = not Application.Options.CheckGrammarAsYouType" mas quem disse que você começa com ativado ou desativado? :)

— JollyMort

as únicas coisas que podem ser aprimoradas é que não sabemos quando é ligado ou desligado (um alerta seria útil!), pois leva algum tempo antes da atualização ou o texto precisa ser editado para remover as partes sublinhadas.

— Lisa

tudo bem, eu não vi sua edição antes, então você deseja que ela desative se alguma delas estiver ativada. Adicionada uma msgbox para lhe contar o que aconteceu;)

— JollyMort 11/11

muito obrigado novamente! Apenas uma última: alguma idéia de como limpar todos os sublinhados de uma só vez? (O texto precisa ser editado ou reabrir para removê-lo)

— Lisa

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

Isso ignorará todas as provas, para 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 quero 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

— chris m
fonte