Evento Application.NewDocument (Word)

Este evento se produce al crear un nuevo documento.

Sintaxis

Private Sub Application _NewDocument(ByVal Doc As Document)

Expresión Variable que representa un objeto Application que se ha declarado con eventos en un módulo de clase.

Parameters

Comentarios

Para obtener más información sobre el uso de eventos con el objeto Application , consulte Uso de eventos con el objeto Application.

Ejemplo:

En este ejemplo se pregunta al usuario si desea guardar todos los documentos abiertos cuando se crea un nuevo documento. Este código debe colocarse en un módulo de clase y una instancia de la clase debe inicializarse correctamente para ver cómo funciona este ejemplo; consulte Uso de eventos con el objeto Application para obtener instrucciones sobre cómo hacerlo.

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_NewDocument(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

Vea también

• Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.