Compartir a través de

Método Template.OpenAsDocument (Word)

  • Artículo

Se abre la plantilla especificada como un documento y devuelve un objeto Document.

Sintaxis

expresión. OpenAsDocument

expresión obligatoria. Variable que representa un objeto 'Template'.

Valor devuelto

Documento

Comentarios

Abrir una plantilla como un documento, permite al usuario editar el contenido de la plantilla. Esto puede ser necesario si una propiedad o método (por ejemplo, la propiedad Styles ) no está disponible en el objeto Template.

Ejemplo:

En este ejemplo, se abre la plantilla adjunta al documento activo, muestra un cuadro de mensaje si la plantilla contiene otros datos aparte de una sola marca de párrafo y, a continuación, la cierra.

Dim docNew As Document 
 
Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument 
 
If docNew.Content.Text <> Chr(13) Then 
 MsgBox "Template is not empty" 
Else 
 MsgBox "Template is empty" 
End If 
docNew.Close SaveChanges:=wdDoNotSaveChanges

En este ejemplo, se guarda una copia de la plantilla Normal como "Backup.dot".

Dim docNew As Document 
 
Set docNew = NormalTemplate.OpenAsDocument 
 
With docNew 
 .SaveAs FileName:="Backup.dot" 
 .Close SaveChanges:=wdDoNotSaveChanges 
End With

En este ejemplo se cambia el formato del estilo Heading 1 en la plantilla adjunta al documento activo. El método UpdateStyles actualiza los estilos del documento activo.

Dim docNew As Document 
 
Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument 
 
With docNew.Styles(wdStyleHeading1).Font 
 .Name = "Arial" 
 .Size = 16 
 .Bold = False 
End With 
docNew.Close SaveChanges:=wdSaveChanges 
ActiveDocument.UpdateStyles

Consulte también

Objeto de plantilla

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.