Dim tbl As Table Dim oCell As Cell For Each tbl In ActiveDocument.Tables With tbl For Each oCell In .Range.Cells oCell.WordWrap = True oCell.FitText = False Next oCell End With Next tbl