Table.Uniform Property (Word)
True if all the rows in a table have the same number of columns. Read-only Boolean.
Syntax
expression .Uniform
expression An expression that returns a Table object.
Example
This example creates a table that contains a split cell and then displays a message box that confirms that the table doesn't have the same number of columns for each row.
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"
This example determines whether the table that contains the selection has the same number of columns for each row.
If Selection.Information(wdWithInTable) = True Then
MsgBox Selection.Tables(1).Uniform
End If