Word) (Table.Uniform 属性

如此 如果表中的所有行都具有相同的列数。 只读 Boolean。

语法

expression。 Uniform

表达 返回“Table”对象的表达式。

示例

本示例创建一个包含拆分单元格的表格，然后显示一个消息框，确认并非表格中的每一行都具有相同的列数。

Set newDoc = Documents.Add 
Set myTable = newDoc.Tables.Add(Selection.Range, 5, 5) 
myTable.Cell(3, 3).Split 1, 2 
If myTable.Uniform = False Then MsgBox "Table is not uniform"

本示例确定包含选定内容的表格中的各行是否具有相同的列数。

If Selection.Information(wdWithInTable) = True Then 
 MsgBox Selection.Tables(1).Uniform 
End If

另请参阅

表对象

支持和反馈

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