共用方式為


Word) (的 AutoCaption.CaptionLabel 屬性

會傳回或設定標題標籤 ("估計,""表格"或"方程式"例如) 的指定的標題。 讀取/寫入 Variant

語法

expressionCaptionLabel

表達 代表 'AutoCaption' 物件的變數。

註解

此屬性可以設定為字串或 WdCaptionLabelID 常數。

範例

此範例會顯示每個項目的名稱 (例如,"Microsoft Excel Worksheet") 及標題標籤 (例如,"Figure"),每個項目都會具有在插入時自動新增的標題。

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

此範例會將 Word 表格的標題標籤設為 "Table",然後在選取範圍後面立即插入新表格。

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

另請參閱

AutoCaption 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應