Como alterar aspas curvas para aspas normais?

Neste tutorial criaremos uma macro através do Editor do Visual Basic para alterar aspas curvas para aspas normais e uma outra macro para alterar aspas normais para aspas curvas.

Abra o Editor do Visual Basic clicando na Guia Desenvolvedor e no Grupo Código clique em Visual Basic.

No Editor do Visual Basic clique no Menu Inserir para inserir um novo Módulo.

Na Janela de Código adicione o código abaixo:

Sub aspascurvas()
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

Esta macro converterá com apenas um clique os aspas normais de uma palavra ou frase previamente selecionada para aspas curvas (“”).

Deverá ficar como na imagem abaixo:

Ainda na Janela de Código adicione o código abaixo:

Sub aspasnormais()
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

Esta macro converterá com apenas um clique os aspas curvas de uma palavra ou frase previamente selecionada para aspas normais ("").

Deverá ficar como na imagem abaixo:

Feche o do Editor do Visual Basic para voltar ao ambiente de trabalho do Word.

Agora faremos um teste para ver como as macros funcionam.

Alterar aspas curvas para aspas normais

Observe na imagem abaixo temos uma palavra entre aspas curvas.

Para converter as aspas curvas para aspas normais selecione toda a palavra e na Guia Desenvolvedor, no Grupo Código clique em Macros, como mostra a imagem abaixo:

Selecione a macro aspasnormais e clique em Executar

Veja como ficou:

Alterar aspas normais para aspas curvas

Observe na imagem abaixo temos uma palavra entre aspas normais.

Para converter as aspas normais para aspas curvas selecione toda a palavra e na Guia Desenvolvedor, no Grupo Código clique em Macros, como mostra a imagem abaixo:

Selecione a macro aspascurvas e clique em Executar

Veja o resultado:

Faça download do arquivo usado como exemplo neste tutorial: Baixar Arquivo

Gostou? Se quiser mais eu tenho um e-Book sobre VBA que você pode se interessar.
Confira aqui