1: 2: 3: 4: 5: 6: 7:
Sub getBord () Schemerige wrd als Voorwerp Voor Elke wrd in ThisDocument.Words Als wrd. Grenzen (wdBorderTop). Zichtbare dan MsgBox „doet iets met“ & wrd Daarna Sub van het eind