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