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