Cells.VerticalAlignment (Word)

Devuelve o establece la alineación vertical del texto en una o varias celdas de una tabla. Posibles valores de retorno son wdCellAlignVerticalBottom - El texto se alinea al borde inferior de la celda, wdCellAlignVerticalCenter - El texto se alinea al centro de la celda, wdCellAlignVerticalTop - El texto se alinea al borde superior de la celda.

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