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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.