閱讀英文

共用方式為


Tables.Add 方法 (Word)

會傳回 Table 物件,表示加入至文件的新的空白表格。

語法

運算式新增 (RangeNumRowsNumColumnsDefaultTableBehaviorAutoFitBehavior)

需要 expression。 代表 'Tables' 集合的變數。

參數

名稱 必要/選用 資料類型 描述
Range 必要 Range object 您想要顯示表格的範圍。 如果此範圍並非摺疊,這個表格就會取代此範圍。
NumRows 必要 Long 您想要在表格中包含的列數。
NumColumns 必要 Long 您想要在表格中包含的欄數。
DefaultTableBehavior 選用 Variant 設定值,指定 Microsoft Word 是否會自動調整資料表中儲存格的大小,以符合自動調整) (儲存格的內容。 可以是下列常數之一: wdWord8TableBehavior (停用自動調整) 或 wdWord9TableBehavior (自動調整啟用)。 預設的常數是 wdWord8TableBehavior
AutoFitBehavior 選用 Variant 會設定 Word 調整表格的大小的自動調整規則。 可以是 WdAutoFitBehavior 常數之一。

傳回值

資料表

範例

這則範例會在使用中文件的開頭加入一個含有三列及四欄的空白表格。

Set myRange = ActiveDocument.Range(0, 0) 
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

這則範例會在使用中文件的結尾加入一個含有六列及十欄的新空白表格。

Set MyRange = ActiveDocument.Content 
MyRange.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _ 
 NumColumns:=10

這則範例會將一個含有三列及五欄的表格加入至新文件,然後將資料插入表格中的每個儲存格。

Sub NewTable() 
 Dim docNew As Document 
 Dim tblNew As Table 
 Dim intX As Integer 
 Dim intY As Integer 
 
 Set docNew = Documents.Add 
 Set tblNew = docNew.Tables.Add(Selection.Range, 3, 5) 
 With tblNew 
 For intX = 1 To 3 
 For intY = 1 To 5 
 .Cell(intX, intY).Range.InsertAfter "Cell: R" & intX & ", C" & intY 
 Next intY 
 Next intX 
 .Columns.AutoFit 
 End With 
End Sub

另請參閱

Tables 集合物件

支援和意見反應

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