1: 2: 3: 4: 5: 6: 7:
UndergetBord () Dunkel wrd som anmärker För varje wrd i ThisDocument.Words Om wrd. Gränsar (wdBorderTop). Synliga MsgBox ”gör därefter något med” & wrd Därefter Avsluta suben