Clase Template (Word VBA)

La clase Template representa una plantilla de documento.

El principal procedimiento de la clase Template es OpenAsDocument

Set

Para usar una variable de clase Template, primero debe ser instanciado, por ejemplo

Dim tmp as Template
Set tmp = CustomizationContext

Los siguientes procedimientos se pueden usar para establecer variables de clase Template : Application.CustomizationContext, Application.MacroContainer, Application.NormalTemplate, Document.AttachedTemplate, Templates.Item y Application.Templates

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Template en una colección.

Dim tmp As Template
For Each tmp In Templates
	
Next tmp

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Name with its procedures FullName y Name

Métodos

Este es el método principal de la clase Template

OpenAsDocument - Abre la plantilla especificada como un documento y devuelve un objeto Document .

Dim docOpenAsDocument As Document
Set docOpenAsDocument = CustomizationContext.OpenAsDocument()

Propiedades

AutoSaveOn

CustomizationContext.AutoSaveOn = True

BuildingBlockEntries Devuelve una colección BuildingBlockEntries que representa la colección de entradas de un bloque de creación de una plantilla.

Dim bbesBuildingBlockEntries As BuildingBlockEntries
Set bbesBuildingBlockEntries = CustomizationContext.BuildingBlockEntries

BuildingBlockTypes Devuelve una colección BuildingBlockTypes que representa la colección de tipos de bloques de creación que contiene una plantilla.

Dim bbtsBuildingBlockTypes As BuildingBlockTypes
Set bbtsBuildingBlockTypes = CustomizationContext.BuildingBlockTypes

BuiltInDocumentProperties Devuelve una colección DocumentProperties que representa todas las propiedades integradas del documento para el documento especificado.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = CustomizationContext.BuiltInDocumentProperties

CustomDocumentProperties Devuelve una colección DocumentProperties que representa todas las propiedades de documento personalizadas para el documento especificado.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = CustomizationContext.CustomDocumentProperties

FarEastLineBreakLanguage Devuelve o establece el idioma del este asiático a utilizarse al dividir líneas de texto en el documento o plantilla especificados.

CustomizationContext.FarEastLineBreakLanguage = wdLineBreakJapanese

FarEastLineBreakLevel Devuelve o establece el nivel de control de salto de línea para el documento especificado.

CustomizationContext.FarEastLineBreakLevel = wdFarEastLineBreakLevelCustom

JustificationMode Devuelve o establece el ajuste del espacio entre caracteres de la plantilla especificada.

CustomizationContext.JustificationMode = wdJustificationModeCompress

KerningByAlgorithm True si Microsoft Word ajusta los caracteres latinos de un byte y las marcas de puntuación del documento especificado.

CustomizationContext.KerningByAlgorithm = True

LanguageID Devuelve o establece una constante WdLanguageID que representa el idioma del intervalo especificado.

CustomizationContext.LanguageID = wdAfrikaans

LanguageIDFarEast Devuelve o establece un idioma del este asiático para el objeto especificado.

CustomizationContext.LanguageIDFarEast = wdAfrikaans

ListTemplates Devuelve una colección ListTemplates que representa todos los formatos de lista de la plantilla especificada.

Dim ltsListTemplates As ListTemplates
Set ltsListTemplates = CustomizationContext.ListTemplates

NoLineBreakAfter Devuelve o establece los caracteres kinsoku después de que Microsoft Word no dividirá una línea.

CustomizationContext.NoLineBreakAfter =

NoLineBreakBefore Devuelve o establece los caracteres kinsoku delante de los cuales Microsoft Word no dividirá una línea.

CustomizationContext.NoLineBreakBefore =

NoProofing True si el corrector ortográfico y gramatical omite los documentos basados en esta plantilla.

CustomizationContext.NoProofing =

Parent Devuelve un objeto Object que representa el objeto primario del objeto Template especificado.

Dim objParent As Object
Set objParent = CustomizationContext.Parent

Path Devuelve la ruta de acceso a la plantilla de documento especificado.

Dim strPath As String
strPath = CustomizationContext.Path

Saved True si la plantilla especificada no ha cambiado desde la última vez que se guardó.

CustomizationContext.Saved = True

Type Devuelve el tipo de plantilla.

Dim wttType As WdTemplateType
wttType = CustomizationContext.Type

VBProject Devuelve el objeto VBProject de la plantilla especificada.

Dim vbpVBProject As VBIDE.VBProject
Set vbpVBProject = CustomizationContext.VBProject

Templates.Count Devuelve un Long que representa el número de plantillas de la colección especificada.

Dim lngCount As Long
lngCount = Templates.Count

Templates.Parent Devuelve un objeto Object que representa el objeto primario del objeto Templates especificado.

Dim objParent As Object
Set objParent = Templates.Parent