Skip to main content

Como alterar aspas retas para aspas curvas no Word?

Author: Amanda Li Last Modified: 2025-06-04

Normalmente, o Microsoft Word alterará automaticamente as aspas retas Straight quotes para aspas curvas (inteligentes ou tipográficas) Curly quotes 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

Straight quotes Arrow Curly quotes

Ferramentas de Produtividade Recomendadas para Word

Kutools para Word: Integrando IA 🤖, mais de 100 recursos avançados economizam 50% do seu tempo de manipulação de documentos.Download Grátis

Office Tab: Introduz guias no estilo de navegador ao Word (e outras ferramentas do Office), simplificando a navegação entre vários documentos.Download Grátis


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

File menu with Options selected Arrow Word Options window with Proofing tab opened, AutoCorrect Options clicked
Arrow
AutoFormat As You Type section with 'Straight quotes' with 'smart quotes' checkbox selected

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:

Find and Replace dialog

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...
Navigate through documents using Office Tab
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 Run button 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 para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

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

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

Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

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

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

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

Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Office

Kutools para Word – 100+ Ferramentas para Word