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