通过

AutoCaption.CaptionLabel Property

  • 项目
Word Developer Reference

Returns or sets the caption label ("Figure," "Table," or "Equation," for example) of the specified caption. Read/write Variant.

Syntax

expression.CaptionLabel

expression   A variable that represents an AutoCaption object.

Remarks

This property can be set to a string or a WdCaptionLabelID constant.

Example

This example displays the name ("Microsoft Excel Worksheet," for example) and caption label ("Figure," for example) for each item that has a caption added automatically when inserted.

Visual Basic for Applications 
  Dim acLoop As AutoCaption

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

This example sets the caption label for Word tables to "Table" and then inserts a new table immediately after the selection.

Visual Basic for Applications 
  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

See Also