Klasse AutoCaption (Word VBA)

Die Klasse AutoCaption stellt eine einzelne Beschriftung dar, die automatisch beim Einfügen von Elementen, z. B. Tabellen, Bildern oder OLE-Objekten, in ein Dokument hinzugefügt werden kann.

Set

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

Dim acn as AutoCaption
Set acn = AutoCaptions(Index:=1)

Die folgenden Prozeduren können zum Festlegen der AutoCaption Klassenvariablen verwendet werden : AutoCaptions.Item und Application.AutoCaptions

For Each

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

Dim acn As AutoCaption
For Each acn In AutoCaptions
	
Next acn

AutoInsert

True, wenn beim Einfügen eines Elements in ein Dokument automatisch eine Beschriftung eingefügt wird.

AutoCaptions("Microsoft Word Table").AutoInsert = True 
Selection.Collapse Direction:=wdCollapseStart 
ActiveDocument.Tables.Add Range:=Selection.Range, _ 
 NumRows:=2, NumColumns:=2

CaptionLabel

Gibt die Beschriftungskategorie (z. B. Abbildung, Tabelle oder Gleichung) der angegebenen Beschriftung zurück oder legt sie fest.

Diese Eigenschaft kann auf eine Zeichenfolge oder eine WdCaptionLabelID -Konstante festgelegt werden.

Dim acLoop As AutoCaption 
 
For Each acLoop In AutoCaptions 
 If acLoop.AutoInsert = True Then MsgBox acLoop.Name _ 
 & vbCr & "Label = " & acLoop.CaptionLabel.Name 
Next acLoop

Index

Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim lngIndex As Long
lngIndex = AutoCaptions(1).Index

Name

Gibt den Namen des angegebenen Objekts zurück oder legt ihn fest.

Dim strName As String
strName = AutoCaptions(1).Name

Parent

Gibt ein Object zurück, welches das übergeordnete Objekt des angegebenen AutoCaption-Objekts repräsentiert.

Dim objParent As Object
Set objParent = AutoCaptions(1).Parent

AutoCaptions.CancelAutoInsert

Verhindert, dass Word automatisch Elemente jeder Art mit Beschriftungen versieht.

AutoCaptions.CancelAutoInsert

AutoCaptions.Count

Gibt die Anzahl der in der AutoCaptions-Auflistung enthaltenen Elemente zurück.

Dim lngCount As Long
lngCount = AutoCaptions.Count

AutoCaptions.Item

Gibt ein einzelnes AutoCaption -Objekt in einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Dim acn As AutoCaption
Set acn = AutoCaptions(Index:=1)

AutoCaptions.Parent

Gibt ein Object zurück, welches das übergeordnete Objekt der angegebenen AutoCaptions-Auflistung repräsentiert.

Dim objParent As Object
Set objParent = AutoCaptions.Parent