Com que rapidez alternar as aspas inteligentes no Word 2010?

3

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.

    
por KnowItAllWannabe 02.07.2013 / 06:10

2 respostas

2

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

    
por 02.07.2013 / 06:42
2

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

Options.AutoFormatAsYouTypeReplaceQuotes = Não Options.AutoFormatAsYouTypeReplaceQuotes

    
por 03.07.2013 / 08:10