Tables.Add 方法 (Word)
會傳回 Table 物件,表示加入至文件的新的空白表格。
運算式。新增 (Range、 NumRows、 NumColumns、 DefaultTableBehavior、 AutoFitBehavior)
需要 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
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。