會將預先定義的外觀套用至表格。
語法
expression。
AutoFormat( _Format_ , _ApplyBorders_ , _ApplyShading_ , _ApplyFont_ , _ApplyColor_ , _ApplyHeadingRows_ , _ApplyLastRow_ , _ApplyFirstColumn_ , _ApplyLastColumn_ , _AutoFit_ )
需要 expression。 一個代表「Table」物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Format | 選用 | Variant | 要套用的格式。 此參數可以是 WdTableFormat 常數、 WdTableFormatApply 常數或 TableStyle 物件。 |
| 應用邊界 | 選用 | Variant | True 是表示 套用指定之格式的框線屬性。 預設值為 True 。 |
| 套用陰影 | 選用 | Variant | True 是表示 套用指定之格式的陰影屬性。 預設值為 True 。 |
| ApplyFont | 選用 | Variant | True 是表示 套用指定之格式的字型屬性。 預設值為 True 。 |
| ApplyColor | 選用 | Variant | True 是表示 套用指定之格式的色彩屬性。 預設值為 True 。 |
| 應用標題列 | 選用 | Variant | True 是表示 套用指定之格式的標題列屬性。 預設值為 True 。 |
| ApplyLastRow | 選用 | Variant | True 是表示 套用指定之格式的末列屬性。 預設值為 False 。 |
| 應用第一欄 | 選用 | Variant | True 是表示 套用指定之格式的首欄屬性。 預設值為 True 。 |
| ApplyLastColumn | 選用 | Variant | True 是表示 套用指定之格式的末欄屬性。 預設值為 False 。 |
| AutoFit | 選用 | Variant | 則為 true 可減少儘可能表格欄寬而不變更方式的文字自動換列的儲存格中。 預設值為 True。 |
註解
此方法的引數會對應至 [表格自動格式設定] 對話方塊中的選項。
範例
這個範例會在新文件中建立 5x5 表格,並且將 Colorful 2 格式的所有屬性套用至該表格。
Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
myTable.AutoFormat Format:=wdTableFormatColorful2
這個範例會將 Classic 2 格式的所有屬性套用至插入點目前所在的表格。 如果插入點不在表格中,就會顯示訊息方塊。
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).AutoFormat Format:=wdTableFormatClassic2
Else
MsgBox "The insertion point is not in a table."
End If
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。