Usando eventos com o objeto Document (Publicador)

O objeto Document dá suporte a sete eventos: BeforeClose, Open, Redo, ShapesAdded, ShapesRemoved, Undo e WizardAfterChange. Você grava procedimentos para responder a esses eventos no módulo de classe chamado ThisDocument.

Use as seguintes etapas para criar um procedimento de evento:

1. Under your publication project in the Project Explorer window, double-click ThisDocument. No modo deexibição Pasta, ThisDocument está localizado na pasta Objetos do Microsoft Publisher .

2. Select Document from the Object drop-down list box.

3. Select an event from the Procedure drop-down list box. An empty subroutine is added to the class module.

4. Adicione as instruções do Visual Basic que você deseja executar quando o evento ocorrer.

Exemplo

Este exemplo mostra um procedimento de evento Open que exibe uma mensagem quando uma publicação é aberta.

Private Sub Document_Open() 
    MsgBox "This publication is copyrighted." 
End Sub

The following example shows a BeforeClose event procedure that prompts the user for a yes or no response before closing a document.

Private Sub Document_BeforeClose(Cancel As Boolean) 
    Dim intResponse As Integer 
 
    intResponse = MsgBox("Do you really want to close " _ 
        & "the document?", vbYesNo) 
 
    If intResponse = vbNo Then Cancel = True 
End Sub

Observação

Para obter informações sobre como criar procedimentos de evento para o objeto Application , consulte Usando eventos com o objeto Application.

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.