Evento Document.New (Word)

Se produce cuando se crea un nuevo documento basado en la plantilla. Un procedimiento para el evento New se ejecutará sólo si se almacena en una plantilla.

Sintaxis

expression.**Private Sub Document_New'

Expresión Variable que representa un objeto Document .

Comentarios

Para obtener información sobre cómo usar eventos con el objeto Document , consulte Uso de eventos con el objeto Document.

Ejemplo:

En este ejemplo se pregunta al usuario si desea guardar todos los documentos abiertos cuando se crea un nuevo documento basado en la plantilla. (Este procedimiento se almacena en el módulo de clase ThisDocument de una plantilla, no es un documento).

Private Sub Document_New() 
 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 Application.Documents 
 With docLoop 
 If .Name <> strName Then 
 .Save 
 End If 
 End With 
 Next docLoop 
 End If 
End Sub

Consulte también

Objeto Document

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.