MS Office Gurus

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.

Clique aqui para ler as partes anteriores deste curso!