Propriedade Table.Uniform (Word)
True se todas as linhas em uma tabela tiverem o mesmo número de colunas. Boolean somente leitura.
Sintaxe
expression. Uniform
Expressão Uma expressão que retorna um objeto 'Table'.
Exemplo
Este exemplo cria uma tabela contendo uma célula dividida e exibe uma caixa de mensagem confirmando que a tabela não tem o mesmo número de colunas em cada linha.
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"
Este exemplo determina se a tabela que contém a seleção tem o mesmo número de colunas em todas as linhas.
If Selection.Information(wdWithInTable) = True Then
MsgBox Selection.Tables(1).Uniform
End If
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.