Cells.VerticalAlignment (Word)

Retorna ou define o alinhamento vertical do texto em uma ou mais células de uma tabela. Leitura/gravação WdCellVerticalAlignment. Os valores de retorno possíveis são wdCellAlignVerticalBottom - O texto é alinhado à borda inferior da célula, wdCellAlignVerticalCenter - O texto é alinhado ao centro da célula, wdCellAlignVerticalTop - O texto é alinhado à borda superior da célula.

Set newDoc = Documents.Add 
Set myTable = newDoc.Tables.Add(Selection.Range, 3, 3) 
i = 1 
For Each c In myTable.Range.Cells 
 c.Range.InsertAfter "Cell " & i 
 i = i + 1 
Next 
With myTable.Rows(1) 
 .Height = 20 
 .Cells.VerticalAlignment = wdAlignVerticalTop 
End With