Klasse Template (Word VBA)

Die Klasse Template stellt eine Dokumentvorlage dar.

Die wichtigste Prozedur der Klasse Template ist OpenAsDocument

Set

Um eine Template -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim tmp as Template
Set tmp = CustomizationContext

Die folgenden Prozeduren können zum Festlegen der Template Klassenvariablen verwendet werden : Application.CustomizationContext, Application.MacroContainer, Application.NormalTemplate, Document.AttachedTemplate, Templates.Item und Application.Templates

For Each

Hier ist ein Beispiel für die Verarbeitung der Template -Elemente in einer Sammlung

Dim tmp As Template
For Each tmp In Templates
	
Next tmp

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Name with its procedures FullName und Name

Methoden

Dies ist die Hauptmethode der Klasse Template

OpenAsDocument - Öffnet die angegebene Vorlage als Dokument und gibt ein Document -Objekt zurück.

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

Eigenschaften

AutoSaveOn

CustomizationContext.AutoSaveOn = True

BuildingBlockEntries Gibt eine BuildingBlockEntries -Auflistung zurück, die die Auflistung von Baustein Einträgen in einer Vorlage darstellt.

Dim bbesBuildingBlockEntries As BuildingBlockEntries
Set bbesBuildingBlockEntries = CustomizationContext.BuildingBlockEntries

BuildingBlockTypes Gibt eine BuildingBlockTypes -Auflistung zurück, die die Auflistung der in einer Vorlage enthaltenen Bausteintypen darstellt.

Dim bbtsBuildingBlockTypes As BuildingBlockTypes
Set bbtsBuildingBlockTypes = CustomizationContext.BuildingBlockTypes

BuiltInDocumentProperties Gibt eine DocumentProperties -Auflistung zurück, die alle integrierten Dokumenteigenschaften für das angegebene Dokument darstellt.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = CustomizationContext.BuiltInDocumentProperties

CustomDocumentProperties Gibt eine DocumentProperties -Auflistung zurück, die alle benutzerdefinierten Dokumenteigenschaften für das angegebene Dokument darstellt.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = CustomizationContext.CustomDocumentProperties

FarEastLineBreakLanguage Gibt an oder legt fest, welche ostasiatische Sprache für den Zeilenumbruch von Text im angegebenen Dokument oder in der angegebenen Vorlage verwendet werden soll.

CustomizationContext.FarEastLineBreakLanguage = wdLineBreakJapanese

FarEastLineBreakLevel Gibt die Steuerungsebene des Zeilenumbruchs für das angegebene Dokument zurück oder legt diese Ebene fest.

CustomizationContext.FarEastLineBreakLevel = wdFarEastLineBreakLevelCustom

JustificationMode Gibt die Zeichenabstandausrichtung für die angegebene Vorlage zurück oder legt sie fest.

CustomizationContext.JustificationMode = wdJustificationModeCompress

KerningByAlgorithm True, falls halbbreite lateinische Zeichen und Interpunktionszeichen im angegebenen Dokument von Microsoft Word unterschnitten werden.

CustomizationContext.KerningByAlgorithm = True

LanguageID Gibt eine WdLanguageID -Konstante zurück, die die Sprache für den angegebenen Bereich darstellt, oder legt diese fest.

CustomizationContext.LanguageID = wdAfrikaans

LanguageIDFarEast Gibt für das angegebene Objekt eine ostasiatische Sprache zurück oder legt diese fest.

CustomizationContext.LanguageIDFarEast = wdAfrikaans

ListTemplates Gibt eine ListTemplates -Auflistung zurück, die alle Listenformate für die angegebene Vorlage darstellt.

Dim ltsListTemplates As ListTemplates
Set ltsListTemplates = CustomizationContext.ListTemplates

NoLineBreakAfter Zurückgeben oder festlegen die Kinsoku Zeichen, nach denen Microsoft Word eine Leitung nicht unterbricht.

CustomizationContext.NoLineBreakAfter =

NoLineBreakBefore Gibt die Kinsoku-Zeichen zurück oder legt Sie fest, vor denen Microsoft Word eine Textreihe nicht unterbrechen wird.

CustomizationContext.NoLineBreakBefore =

NoProofing True, wenn die Rechtschreib- und Grammatikprüfung die auf dieser Vorlage basierenden Dokumente ignoriert.

CustomizationContext.NoProofing =

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Template-Objekts darstellt.

Dim objParent As Object
Set objParent = CustomizationContext.Parent

Path Gibt den Pfad an die angegebene Dokumentvorlage zurück.

Dim strPath As String
strPath = CustomizationContext.Path

Saved True, wenn sich die angegebene Vorlage seit dem letzten Speichern nicht geändert hat.

CustomizationContext.Saved = True

Type Gibt den Typ der Vorlage zurück.

Dim wttType As WdTemplateType
wttType = CustomizationContext.Type

VBProject Gibt das VBProject-Objekt für die angegebene Vorlage zurück.

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

Templates.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Vorlagen in der angegebenen Auflistung darstellt.

Dim lngCount As Long
lngCount = Templates.Count

Templates.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Templates-Objekts darstellt.

Dim objParent As Object
Set objParent = Templates.Parent