Sub Tbls_Format_1()
Dim oRow As Row
Dim oTbl As Word.Table
  For Each oTbl In ActiveDocument.Tables
    For Each oRow In oTbl.Rows
       oRow.HeightRule = wdRowHeightAtLeast
    Next oRow
  Next oTbl
lbl_Exit:
  Exit Sub
End Sub