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

© 2013 Tutoriais Word - Todos os direitos reservados