Com que rapidez alternar as aspas inteligentes no Word 2010?

Question

Estou trabalhando em um longo documento técnico que contém várias exibições de código de computador. Na execução de texto, quero que minhas aspas sejam encaracoladas, o que significa que o recurso de formatação automática do tipo "aspas inteligentes" do Word é o que eu quero. Mas, em exibições de código, as aspas curvas estão incorretas; portanto, nesses casos, desejo desabilitar as citações inteligentes como tipo I. Existe uma maneira rápida de alternar essa configuração? Ou há uma maneira que eu possa ligá-lo ao estilo de parágrafo em que estou? (Eu uso um estilo distinto para exibições de código.)

Atualmente, para alternar a configuração, eu preciso clicar em Arquivo > Opções > Prova > Opções de autocorreção ... > "Aspas direitas" com "aspas inteligentes" > OK > OK, que são sete cliques do mouse. Voltar para trás é mais sete cliques do mouse. Não há um caminho mais rápido? Um atalho de teclado para fazer a alternação ou um botão da barra de ferramentas que o alternaria com um único clique seria ótimo. Ter a configuração depende do estilo de parágrafo em que eu estava seria ainda melhor.

    

Answer 1

OK, aqui está a resposta:

1. Ir para a guia View > Macros > %código%
2. Nomeie a macro e atribua-a a uma chave / atalho (combinação de teclas)
3. Grave alguma coisa (não importa o que, vamos redefinir em um momento). Clique em Record Macro > Macros para parar.
4. Repita as etapas de 1 a 3 para criar outra macro (agora temos 2 macros no total).
5. Ir para a guia Stop Recording > View > %código%
6. Escolha a primeira macro e clique em Macros
7. Exclua todas as linhas dentro do código da macro (é o Visual Basic), exceto View Macros e Edit
8. Copie esta linha para o sub: sub Macro_Name()
9. Faça o mesmo com a outra macro, mas escreva End Sub .

Por fim, esse é o código (você pode ter outros nomes e / ou descrições para suas macros):   Observe também que, no Visual Basic, Options.AutoFormatReplaceQuotes = True define uma linha de comentário (normalmente, a linha fica verde), significa que a linha não será executada.

 Sub ToggleQuotes1()
'
' ToggleQuotes1 Macro
' Smart Quotes
'
    Options.AutoFormatReplaceQuotes = True
End Sub
Sub ToggleQuotes2()
'
' ToggleQuotes2 Macro
' Regular quotes 
'
    Options.AutoFormatReplaceQuotes = False
End Sub

P.S - Há duas opções de qoutes inteligentes em revisão. Um está na guia Options.AutoFormatReplaceQuotes = False e o outro é ' . Aqui eu mudo o primeiro, mas o segundo é assim: AutoFormat

    

Answer 2

Você pode fazer isso com apenas uma macro contendo a linha

Options.AutoFormatAsYouTypeReplaceQuotes = Não Options.AutoFormatAsYouTypeReplaceQuotes