Klasse AutoCaption - Beschriftung (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. Um eine AutoCaption -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

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