Propiedad Application.Templates (Word)
Devuelve una colección Templates que representa todas las plantillas disponibles: las globales y las adjuntas a los documentos abiertos.
Sintaxis
expresión. Templates
Expresión Expresión que devuelve un objeto Application .
Comentarios
Para obtener información sobre cómo devolver un único miembro de una colección, vea Devolver un objeto de una colección.
Ejemplo:
En este ejemplo, se muestra el nombre de cada una de las plantillas de la colección Templates.
Count = 1
For Each aTemplate In Templates
MsgBox aTemplate.Name & " is template number " & Count
Count = Count + 1
Next aTemplate
En este ejemplo, si la plantilla uno es una plantilla global, su ruta de acceso se almacena en thePath. La instrucción ChDir se usa para realizar la carpeta con la ruta de acceso que almacena en thePath la carpeta actual. Cuando se realiza este cambio, se muestra el cuadro de diálogo Abrir.
If Templates(1).Type = wdGlobalTemplate Then
thePath = Templates(1).Path
If thePath <> "" Then ChDir thePath
Dialogs(wdDialogFileOpen).Show
End If
Vea también
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.