Klasse BuildingBlockEntries (Word VBA)
Die Klasse BuildingBlockEntries stellt eine Auflistung aller BuildingBlock -Objekte in einer Vorlage dar. Um eine BuildingBlockEntries -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim bbes as BuildingBlockEntries
Set bbes = CustomizationContext.BuildingBlockEntries
For Each
Hier ist ein Beispiel für die Verarbeitung der BuildingBlockEntries -Elemente in einer Sammlung
Dim bbkBuildingBlockEntry As BuildingBlock
For Each bbkBuildingBlockEntry In CustomizationContext.BuildingBlockEntries
Next bbkBuildingBlockEntry
Add
Erstellt einen neuen Bausteineintrag in einer Vorlage und gibt ein BuildingBlock -Objekt zurück, das den neuen Building Block-Eintrag darstellt.
Add (Name, Type, Category, Range, Description, InsertOptions)
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = ActiveDocument.AttachedTemplate
Set objBB = objTemplate.BuildingBlockEntries.Add("Author Name", _
wdTypeCustomTextBox, "Custom", Selection.Range)
Arguments
Hier sind die benannte Argumente :
Name (String) - Gibt den Namen des Eintrags für den Baustein an.
Type (WdBuildingBlockTypes) - Gibt den Typ des zu erstellenden Bausteins an.
Dies sind mögliche Werte für
Category (String) - Gibt die Kategorie des neuen Eintrags für den Baustein an.
Range (Range) - Gibt den Wert des Eintrags für den Baustein an.
Optional arguments
Die folgenden Argumente sind optional
Description - String
InsertOptions (WdDocPartInsertOptions) - Gibt an, ob der Eintrag für den Baustein als Seite oder Absatz oder in einer Linie eingefügt wird.
Mögliche Rückgabewerte sind wdInsertContent - Inlinebaustein, wdInsertPage - Seitenebenen-Baustein, wdInsertParagraph - Absatzebenen-Baustein.
Count
Gibt die Anzahl der in der BuildingBlockEntries-Auflistung enthaltenen Elemente zurück.
Dim lngCount As Long
lngCount = CustomizationContext.BuildingBlockEntries.Count
Item
Gibt ein BuildingBlock -Objekt zurück, das das angegebene Element in der Auflistung darstellt.
Item (Index)
Index: Gibt eine Zeichenfolge oder ganze Zahl an, die den Namen oder die Ordnungsposition des Objekts in der Auflistung darstellt.
Dim bbkBuildingBlockEntry As BuildingBlock
Set bbkBuildingBlockEntry = CustomizationContext.BuildingBlockEntries(Index:=1)