Como transformar aspas retas em aspas curvas no word?
Normalmente, o Microsoft Word muda automaticamente aspas retas a citações curvas (ortipógrafo inteligente) enquanto você digita. Mas se o recurso estiver desativado, as aspas simples e duplas podem aparecer diretamente no seu documento. Aqui estão algumas dicas para você transformar aspas retas em curvas e vice-versa no Word.
Altere aspas retas em aspas curvas com Find and Replace
Altere aspas retas para aspas curvas com VBA
Ferramentas de produtividade recomendadas para Word
Kutools for Word: Integrando IA 🤖, mais de 100 recursos avançados economizam 50% do tempo de processamento de documentos.Download grátis
Office Tab: apresenta guias semelhantes a navegadores no Word (e outras ferramentas do Office), simplificando a navegação em vários documentos.Download grátis
Altere aspas retas para aspas curvas com Localizar e Substituir
Guia Office: traz interfaces com guias para Word, Excel, PowerPoint... |
Aprimore seu fluxo de trabalho agora. Saiba Mais Download grátis
|
Antes de aplicar Localizar e substituir, você deve ir para Opções de correção automática para desmarcar o "Aspas retas" com "aspas 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, pegamos o Word 2010/2013, por exemplo:
Passo 1. Clique > Opção > verificação > Opções de correção automática > AutoFormatação conforme você digitae selecione “Aspas retas" com "aspas inteligentes" caixa de seleção. Veja a captura de tela:
Passo 2. Clique Home page > Substituir no Edição grupo ou imprensa Ctrl + H mostrar Localizar e substituir caixa de diálogo e entrar 'or '' in Encontre o que caixa e digite ' or ''in substituir por caixa. Veja a imagem:
Passo 3. Clique substituir tudo.
Nota: se você quiser substituir todas as aspas curvas por aspas retas, limpe "Aspas retas" com "aspas inteligentes" caixa de seleção).
Altere aspas retas para aspas curvas com VBA
Para substituir todas as aspas retas por aspas curvas no Word 2010 usando VBA, clique em Envie o> Opção > verificação e clique AutoCorreção Opções e selecione o "Aspas retas" com "aspas inteligentes" caixa de seleção como segue primeiro. (Note: se você deseja substituir todas as aspas curvas por aspas retas, desmarque a caixa de seleção "Aspas retas" com "aspas curvas").
Etapa 1: pressione “Alt-F11”Para abrir a janela Microsoft Visual Basic for Application;
Etapa 2: clique Módulo na inserção guia, copie e cole o seguinte código VBA no Módulo janela;
Etapa 3: clique em Execute 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 de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...