Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como mudar citações diretas para citações curly em palavras?

Normalmente, o Microsoft Word mudará automaticamente as cotações diretas para curly (smart ortypographer's) citações como você digita. Mas se o recurso estiver desativado, as marcas de citações simples e duplas podem aparecer diretamente em seu documento. Aqui estão as dicas para que você altere as citações diretas para citações curly e vice-versa no Word.

Cotações direitas de Chang para curly citas com Find and Replace

Alterar as cotações diretas para as frases curvas com o VBA


arrow blue right bubble Mude as citações diretas para as cotações curly com Find and Replace

Quente
Surpreendente! Use guias eficientes no Word (Office), como o Chrome, o Firefox e o novo Internet Explorer!

Leia mais Download grátis

Antes de aplicar Localizar e substituir, você deve ir para Opções de correção automática para desmarcar o "Cotações diretas" com "citações inteligentes" Caixa de seleção.

No Word 2003, Opções de correção automática está embaixo da ferramenta Barra. E no Word 2007, aplicando Opções de correção automática clicando > Opções > verificação > Opções de correção automática. Aqui nós levamos o Word 2010 / 2013, por exemplo:

Passo 1. Clique > Opção > verificação > Opções de correção automática > Autoformato conforme você digitaE selecione "Cotações diretas" com "citações inteligentes" caixa de seleção. Ver captura de tela:

Passo 2. Clique Home > substituir no Edição grupo ou pressione Ctrl + H mostrar Localizar e substituir diálogo e digite 'or '' in Encontre o que caixa e entre ' or ''in substituir por caixa. Ver captura de tela:

Passo 3. Clique substituir tudo.

Observação: se quiser substituir todas as frases curly por cotações diretas, limpe "Cotações diretas" com "citações inteligentes" caixa de verificação).


arrow blue right bubble Alterar as cotações diretas para as frases curvas com o VBA

Para substituir todas as cotações diretas por cotações curly no Word 2010 usando o VBA, clique em Envie o> Opção > verificação e clique AutoCorreção Opções e selecione o "Cotações diretas" com "citações inteligentes" caixa de seleção da seguinte maneira. (notas: se você deseja substituir todas as cotações curly por cotações diretas, desmarque a caixa de seleção "Cotações diretas" com cotação "citações inteligentes").

Etapa 1: Pressione "Alt-F11"Para abrir a janela Microsoft Visual Basic for Application;

Etapa 2: clique Módulo no inserção guia, copie e cole o seguinte código VBA no Módulo janela;

Passo 3: em seguida, clique em Corrida botão para aplicar o VBA.

O seguinte VBA é mudar citações diretas para citações curly:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

O seguinte VBA é mudar citações curly para cotações diretas:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub



Ferramentas recomendadas de produtividade de palavras

Kutools for Word - Mais do que 100 Recursos avançados para Word, economize seu tempo 50%

  • Operações complicadas e repetidas podem ser feitas em processamento único em segundos.
  • Inserir várias imagens em pastas no documento do Word de uma só vez.
  • Mesclar e combinar vários arquivos do Word em pastas em um com o pedido desejado.
  • Divida o documento atual em documentos separados de acordo com o cabeçalho, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns e assim por diante ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sri · 11 months ago
    The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
  • To post as a guest, your comment is unpublished.
    no name · 1 years ago
    My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
  • To post as a guest, your comment is unpublished.
    Bill Smith · 5 years ago
    Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
    • To post as a guest, your comment is unpublished.
      Dustin · 4 years ago
      I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.