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.
No ambiente de desenvolvimento VBA clique no menu Inserir e depois em Módulo para inserir um novo 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:
Feche o Editor do Visual Basic para voltar a área de trabalho do Word.
Selecione qualquer palavra no seu documento, como mostra a imagem abaixo:
Na Guia Desenvolvedor, no Grupo Código, clique em Macros.
Selecione a macro adicparenteses e clique em Executar.
Veja o resultado, com apenas um clique foi adicionado parênteses à palavra selecionada:
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