Dim aTbl as Table For each aTbl in Selection.Range.Tables With aTbl.Borders(wdBorderLeft) .... End With Next aTbl