Word (Tables.Add)

返回一个 Table 对象,该对象代表添加到文档中的一个新的空白表。

语法

表达式添加 (RangeNumRowsNumColumnsDefaultTableBehaviorAutoFitBehavior)

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

另请参阅

Tables 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。