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