Do Básico ao Avançado
Home  Tutoriais  Artigos  Contato

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.

Acessar o Editor do Visual Basic

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

Inserir 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:

aspas curvas

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:

aspas normais

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

Fechar o Editor do Visual Basic

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.

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:

Macro

Selecione a macro aspasnormais e clique em Executar

Executar Macro

Veja como ficou:

aspas normais

Alterar aspas normais para aspas curvas

Observe na imagem abaixo temos uma palavra entre aspas normais.

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:

Macro

Selecione a macro aspascurvas e clique em Executar

Executar Macro

Veja o resultado:

aspas curvas

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




Conteúdo Correspondente:


eBook Word 2010 VBA

Política de Privacidade  |   © 2013 Tutoriais Word - Todos os direitos reservados