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:
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 .
Select Document from the Object drop-down list box.
Select an event from the Procedure drop-down list box. An empty subroutine is added to the class module.
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.