Como alterar aspas retas para aspas curvas no Word?

Normalmente, o Microsoft Word alterará automaticamente as aspas retas para aspas curvas (inteligentes ou tipográficas) enquanto você digita. Mas se o recurso estiver desativado, tanto as aspas simples quanto as duplas podem aparecer retas no seu documento. Aqui estão algumas dicas para você alterar aspas retas para aspas curvas e vice-versa no Word.

Alterar aspas retas para aspas curvas com Localizar e Substituir

Alterar aspas retas para aspas curvas com VBA

Alterar aspas retas para aspas curvas com Localizar e Substituir

Antes de aplicar Localizar e Substituir, você deve ir até Opções de Correção Automática para desmarcar a caixa de seleção "Aspas retas" com "aspas inteligentes".

Passo 1. Clique em Arquivo > Opção > Revisão de Texto > Opções de Correção Automática > AutoFormatação Enquanto Você Digita, e selecione a caixa de seleção "Aspas retas" com "aspas inteligentes". Veja a captura de tela

Passo 2. Clique em Página Inicial > Substituir no grupo Edição ou pressione Ctrl + H para exibir a caixa de diálogo Localizar e Substituir, e insira ‘ ou ‘’ na caixa Localizar, e insira ‘ ou ’’ na caixa Substituir por. Veja a captura de tela:

Passo 3. Clique em Substituir Tudo.

Nota: Se você deseja substituir todas as aspas curvas por aspas retas, desmarque a caixa de seleção "Aspas retas" com "aspas inteligentes".

Alterar aspas retas para aspas curvas com VBA

Office Tab: Traz interfaces com guias para o Word, Excel, PowerPoint...

Aprimore seu fluxo de trabalho agora.Saiba Mais sobre o Office Tab Download Grátis

Para substituir todas as aspas retas por aspas curvas no Word 2010 usando VBA, clique em Arquivo> Opção > Revisão de Texto e clique em Opções de AutoCorreção e selecione a caixa de seleção "Aspas retas" com "aspas inteligentes" como segue primeiro. (Nota: se você deseja substituir todas as aspas curvas por aspas retas, desmarque a caixa de seleção "Aspas retas" com "aspas inteligentes").

Passo 1: Pressione “Alt-F11” para abrir a janela do Microsoft Visual Basic for Application;

Passo 2: Clique em Módulo na guia Inserir, copie e cole o seguinte código VBA na janela Módulo;

Passo 3: Depois clique Executar botão para aplicar o VBA.

O seguinte VBA é para alterar aspas retas para aspas curvas:

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 é para alterar aspas curvas para aspas retas:

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

Melhores Ferramentas de Produtividade para Office

Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!

🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

👉 Quer experimentar esses recursos? Baixe o Kutools for Word agora! 🚀

Download Gratuito     Comprar Agora     Saiba Mais sobre o Kutools for Word

 

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

⬇️ Baixar Agora 🎁 Comprar a Suíte Completa 📖 Saiba Mais

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

• 🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
• 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
• ✏ Edição de Corpo: Localizar e Substituir em Lote / Redimensionar todas as Imagens
• 🧹 Limpeza Fácil: Remover Espaços Extras / Remover Quebras de Seção
• ➕ Inserções Criativas: Inserir Delimitadores de Milhares / Inserir Caixas de Seleção / Criar Códigos QR
• 🌍 Compatível com40+ Idiomas: Kutools fala o seu idioma – compatível com mais de40 idiomas!

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools