Evento “WindowSelectionChange”
- Última atualização em 17 Fevereiro 2012
- Acessos: 5065
O evento WindowSelectionChange ocorrerá quando a seleção da janela atual (documento ativo) for modificada. Podemos utilizar este evento para várias coisas.
Suponha que após a seleção você queira mostrar uma mensagem, ou menu popup (ou barra de ferramenta), ou passar uma mensagem.
Suponha ainda que após a seleção de um texto qualquer você queira modificar o texto entre negrito e normal. Ou seja, se o texto está negrito, ele ficará normal e vice-versa.
Para criar tal cenário o leitor precisará criar um módulo de classe chamado clsEventos.
Vejamos, então, um exemplo simples de como proceder. Primeiramente, adicione o seguinte código ao objeto ThisDocument para que a classe possa ser iniciada quando o mesmo for aberto:
Option Explicit Dim appWrd As New clsEventos
Private Sub Document_Open()
Set appWrd.appWord = Application End Sub
Abra a classe de eventos onde o seguinte código deve ser inserido:
Option Explicit Private Sub appWord_WindowSelectionChange _ (ByVal Sel As Selection) Sel.Font.Bold = Not Sel.Font.Bold End Sub
O leito deve notar que este código terá efeito sobre todos os documentos, pois o que está sendo controlado é o evento de mudança de seleção na janela ativa.
Neste exemplo, não determinamos o comprimento da seleção, por exemplo. Poderíamos determinar que somente se a seleção contiver certo número de caracteres ela deve ser alternada entre negrito e normal.
No próximo artigo voce verá como expandir esta idéia.