Evento Application.DocumentOpen (Word)
Ocorre quando um documento é aberto.
Sintaxe
expressão. DocumentOpen (Documento como Documento**)
Expressão Uma variável que representa um objeto 'Application' declarado com eventos em um módulo de classe.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Doc | Obrigatório | Document | O documento que está sendo aberto. |
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 pergunta ao usuário se deseja salvar todos os outros documentos abertos quando um documento é aberto. 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_DocumentOpen(ByVal Doc As Document)
Dim intResponse As Integer
Dim strName As String
Dim docLoop As Document
intResponse = MsgBox("Save all other documents?", vbYesNo)
If intResponse = vbYes Then
strName = ActiveDocument.Name
For Each docLoop In Documents
With docLoop
If .Name <> strName Then
.Save
End If
End With
Next docLoop
End If
End Sub
Confira também
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.