Partilhar via


Evento Application.WindowBeforeRightClick (Word)

Ocorre quando o botão direito é clicado na área de edição de uma janela de documento, antes da ação padrão de clicar o botão direito.

Sintaxe

Sub expressão privada._'WindowBeforeRightClick** (Sel As Selection**, Cancel as Boolean)

Expressão Uma variável que representa um objeto 'Application' que foi declarado com eventos em um módulo de classe.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Sel Obrigatório Selection A seleção atual.
Cancel Obrigatório Boolean False quando o evento ocorre. Se o procedimento de evento define esse argumento como True, a ação de atalho padrão não ocorrerá quando o procedimento for concluído.

Comentários

Para obter mais informações sobre como usar eventos com o objeto Application , consulte Usando eventos com o objeto Application.

Exemplo

Este exemplo pede ao usuário uma resposta Sim ou não antes de executar a ação de atalho padrão. Esse código deve ser colocado em um módulo de classe e uma instância da classe deve ser inicializada corretamente para ver este exemplo funcionar; consulte Usar eventos com o objeto Applicationpara obter instruções sobre como realizar isso.

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_WindowBeforeRightClick _ 
 (ByVal Sel As Selection, Cancel As Boolean) 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Selection = " & Sel & vbLf & vbLf _ 
 & "Continue with operation on this selection?", _ 
 vbYesNo) 
 If intResponse = vbNo Then Cancel = True 
End Sub

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.