Como substituir aspas retas por aspas curvas no Word?

Normalmente, o Microsoft Word transforma automaticamente as aspas retas em aspas curvas (ou tipográficas, também conhecidas como «smart quotes»)à medida que escreve. No entanto, se esta funcionalidade estiver desativada, tanto as aspas simples como as duplas aparecerão retas no seu documento. Eis algumas dicas práticas para converter aspas retas em aspas curvas — e vice-versa — no Word.

Alterar aspas retas em aspas curvas com Localizar e Substituir

Alterar aspas retas em aspas curvas com VBA

---

Alterar aspas retas em aspas curvas com Localizar e Substituir

Antes de aplicar o Localizar e Substituir, aceda às Opções de Correção Automática para desmarcar a caixa de seleção «Aspas retas» por «aspas inteligentes».

Passo 1. Clique em Ficheiro > Opções > Revisão > Opções de Correção Automática > Formatação Automática Durante a Escrita e selecione a caixa de verificação «Aspas retas» por «aspas inteligentes». Veja a captura de ecrã.

Passo 2. Clique em Base > Substituir no grupo Edição ou prima Ctrl + H para abrir a caixa de diálogo Localizar e Substituir. Em seguida, introduza ‘ ou ‘’ na caixa Localizar e ‘ ou ’’ na caixa Substituir por. Veja a captura de ecrã:

Passo 3. Clique em Substituir Tudo.

Nota: se pretender substituir todas as aspas curvas por aspas retas, desmarque a opção «Aspas retas» por «aspas inteligentes» (Caixa de Seleção).

---

Alterar aspas retas em aspas curvas com VBA

Para substituir todas as aspas retas por aspas curvas no Word 2010 utilizando VBA, clique primeiro em Ficheiro > Opções > Revisão, clique em Correção Automática Opções e selecione a caixa de verificação «Aspas retas» por «aspas inteligentes», conforme indicado a seguir. ()Nota: se pretender substituir todas as aspas curvas por aspas retas, desmarque a caixa de verificação «Aspas retas» por «aspas inteligentes»).

Passo 1: Prima «Alt+F11» para abrir a janela do Microsoft Visual Basic for Applications;

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

Passo 3: Em seguida, clique no botão Executar para aplicar o VBA.

O seguinte código VBA serve para alterar aspas retas em 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 código VBA serve para alterar aspas curvas em 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

---