Microsoft Office Forums - View Single Post - [Solved] Word table auto text alignment vs cell height

gmayor · 08-23-2016, 04:35 AM

Unless I am missing something fundamental that you haven't explained. The main issue here is that you have some rows vertically aligned to the top and some vertically aligned to the centre. Surely then all that needs be done is to fix that so that all the rows have the same vertical alignment?

Code:

Sub AlignTableCells()
Dim oTable As Table
    For Each oTable In ActiveDocument.Tables
        With oTable.Range
            .Font.Name = "Arial"
            .Font.ColorIndex = wdBlack
            .Font.Size = 11
            .Cells.VerticalAlignment = wdCellAlignVerticalTop 'or wdCellAlignVerticalCenter
        End With
    Next oTable
lbl_Exit:
    Set oTable = Nothing
    Exit Sub
End Sub