Classe Template (Word VBA)

La classe Template représente un modèle de document.

La procédure principale de la classe Template est OpenAsDocument

Set

Pour utiliser une variable de classe Template, elle doit d'abord être instanciée, par exemple

Dim tmp as Template
Set tmp = CustomizationContext

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Template : Application.CustomizationContext, Application.MacroContainer, Application.NormalTemplate, Document.AttachedTemplate, Templates.Item et Application.Templates

For Each

Voici un exemple de traitement des éléments Template dans une collection

Dim tmp As Template
For Each tmp In Templates
	
Next tmp

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Name with its procedures FullName et Name

Méthodes

C'est la méthode principale de la classe Template

OpenAsDocument - Ouvre le modèle spécifié sous la forme d’un document et renvoie un objet document .

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

Propriétés

AutoSaveOn

CustomizationContext.AutoSaveOn = True

BuildingBlockEntries Renvoie une collection BuildingBlockEntries qui représente la collection d'entrées de blocs de construction dans un modèle.

Dim bbesBuildingBlockEntries As BuildingBlockEntries
Set bbesBuildingBlockEntries = CustomizationContext.BuildingBlockEntries

BuildingBlockTypes Renvoie une collection BuildingBlockTypes qui représente la collection de types de blocs de construction contenus dans un modèle.

Dim bbtsBuildingBlockTypes As BuildingBlockTypes
Set bbtsBuildingBlockTypes = CustomizationContext.BuildingBlockTypes

BuiltInDocumentProperties Renvoie une collection DocumentProperties qui représente toutes les propriétés de document prédéfinies pour le document spécifié.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = CustomizationContext.BuiltInDocumentProperties

CustomDocumentProperties Renvoie une collection DocumentProperties qui représente toutes les propriétés de document personnalisées pour le document spécifié.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = CustomizationContext.CustomDocumentProperties

FarEastLineBreakLanguage Cette propriété renvoie ou définit la langue d'Asie orientale à utiliser lors de la coupure de lignes de texte dans le modèle ou le document spécifié.

CustomizationContext.FarEastLineBreakLanguage = wdLineBreakJapanese

FarEastLineBreakLevel Cette propriété renvoie ou définit le niveau de contrôle des coupures de lignes pour le document spécifié.

CustomizationContext.FarEastLineBreakLevel = wdFarEastLineBreakLevelCustom

JustificationMode Renvoie ou définit l'espacement des caractères pour le modèle spécifié.

CustomizationContext.JustificationMode = wdJustificationModeCompress

KerningByAlgorithm La valeur true si Microsoft Word effectue un crénage des caractères latins à demi-chasse et les signes de ponctuation dans le document spécifié.

CustomizationContext.KerningByAlgorithm = True

LanguageID Cette propriété renvoie ou définit une constante WdLanguageID qui représente la langue de la plage spécifiée.

CustomizationContext.LanguageID = wdAfrikaans

LanguageIDFarEast Renvoie ou définit une langue d'Asie orientale pour l'objet spécifié.

CustomizationContext.LanguageIDFarEast = wdAfrikaans

ListTemplates Renvoie une collection ListTemplates qui représente tous les formats de liste du modèle spécifié.

Dim ltsListTemplates As ListTemplates
Set ltsListTemplates = CustomizationContext.ListTemplates

NoLineBreakAfter Cette propriété renvoie ou définit les caractères kinsoku après lesquels Microsoft Word ne permettra pas de rupture de ligne.

CustomizationContext.NoLineBreakAfter =

NoLineBreakBefore Cette propriété renvoie ou définit les caractères kinsoku avant lesquels Microsoft Word ne permettra pas rupture de ligne.

CustomizationContext.NoLineBreakBefore =

NoProofing True si le vérificateur d'orthographe et grammaire ignore les documents basés sur ce modèle.

CustomizationContext.NoProofing =

Parent Renvoie un Object qui représente l'objet parent de l'objet Template spécifié.

Dim objParent As Object
Set objParent = CustomizationContext.Parent

Path Renvoie le chemin d'accès au modèle de document spécifié.

Dim strPath As String
strPath = CustomizationContext.Path

Saved True si le modèle spécifié n'a pas été modifié depuis son dernier enregistrement.

CustomizationContext.Saved = True

Type Renvoie le type de modèle.

Dim wttType As WdTemplateType
wttType = CustomizationContext.Type

VBProject Renvoie l'objet VBProject pour le modèle spécifié.

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

Templates.Count Renvoie un type long qui représente le nombre de modèles dans la collection spécifiée.

Dim lngCount As Long
lngCount = Templates.Count

Templates.Parent Renvoie un Object qui représente l'objet parent de l'objet Templates spécifié.

Dim objParent As Object
Set objParent = Templates.Parent