1: 2: 3: 4: 5: 6: 7:
Sub getBord() Dim wrd As Object For Each wrd In ThisDocument.Words If wrd.Borders(wdBorderTop).Visible Then MsgBox "Do Something with " & wrd Next End Sub