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 常量之一。

返回值

表格

示例

本示例在活动文档的开头添加一个 3 行 4 列的空表格。

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

本示例在活动文档的结尾添加一个 6 行 10 列的空白新表格。

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

本示例向新文档中添加一个 3 行 5 列的表格，然后在表格的每个单元格中插入数据。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。