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

Adicionar Parênteses ao Texto Selecionado.

Neste tutorial criaremos uma macro que irá Adicionar Parênteses ao Texto Selecionado previamente, por exemplo durante ou após a edição de seu documento você pode querer colocar alguma palavra ou um trecho do texto entre parênteses. 

Para acessar o Editor do Visual Basic, acione a Guia Desenvolvedor e no Grupo Código clique em Visual Basic, ou simplesmente utilize o atalho ALT + F11.

Guia Desenvolvedor

No ambiente de desenvolvimento VBA clique no menu Inserir e depois em Módulo para inserir um novo Módulo.

Inserir Módulo

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

Sub adicparenteses()
Selection.InsertBefore "("
Selection.InsertAfter ")"
End Sub


Ficará como na imagem abaixo:

Janela de Código

Feche o Editor do Visual Basic para voltar a área de trabalho do Word.

Fechar e voltar para Microsoft Word

Selecione qualquer palavra no seu documento, como mostra a imagem abaixo:

Texto selecionado

Na Guia Desenvolvedor, no Grupo Código, clique em Macros.

Macros

Selecione a macro adicparenteses e clique em Executar.

Executar macro

Veja o resultado, com apenas um clique foi adicionado parênteses à palavra selecionada:

Adicionar Parênteses

Considerações Finais:

A macro que criamos usa os métodos InsertBefore e InsertAfter para adicionar os parênteses adequadamente antes e depois do texto selecionado. 

Neste exemplo mostramos a inserção automática de parênteses ao texto selecionado, mas podemos também, por exemplo, adicionar aspas, colchetes, chaves etc. Veja os códigos abaixo:

Adicionando aspas:

Sub adicaspas()
Selection.InsertBefore "””"
Selection.InsertAfter "””"
End Sub


Adicionando colchetes:

Sub AdicColchetes()
Selection.InsertBefore "["
Selection.InsertAfter "]"
End Sub


Adicionando chaves:

Sub AdicChaves ()
Selection.InsertBefore "{"
Selection.InsertAfter "}"
End Sub







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