Propiedad AutoCaption.CaptionLabel (Word)
Devuelve o establece el título ("ilustración", "Tabla" o "Ecuación", por ejemplo) de la etiqueta del título especificado. Variante de lectura y escritura.
Sintaxis
expresión. CaptionLabel
Expresión Variable que representa un objeto "AutoCaption".
Comentarios
Esta propiedad puede establecerse en una cadena o constante WdCaptionLabelID.
Ejemplo:
En este ejemplo se muestra el nombre (por ejemplo, "Hoja de cálculo de Microsoft Excel") y la etiqueta de título (por ejemplo, "Ilustración") para cada elemento al que se le agregue un título automáticamente cuando se inserte.
Dim acLoop As AutoCaption
For Each acLoop In AutoCaptions
If acLoop.AutoInsert = True Then MsgBox acLoop.Name _
& vbCr & "Label = " & acLoop.CaptionLabel.Name
Next acLoop
En este ejemplo, se establece la etiqueta de título de las tablas de Word como "Table" y, a continuación, se inserta una nueva tabla inmediatamente después de la selección.
With AutoCaptions("Microsoft Word Table")
.AutoInsert = True
.CaptionLabel = wdCaptionTable
End With
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _
NumColumns:=3
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.