Microsoft Office Forums - View Single Post - Height of all rows of all tables set as "at least".

vivka · 03-17-2024, 01:54 AM

Hi, Woocash_11! Try this:

Code:

Sub Tbls_Format_1()
'Format all tables in active doc.

Dim oTbl As word.Table
    For Each oTbl In ActiveDocument.Tables
        oTbl.rows.HeightRule = wdRowHeightAtLeast   
    Next oTbl
End Sub