WordBasic.EditBookmark Name:="tm1"

WordBasic.EditBookmark Name:="tm2"

WordBasic.SetStartOfBookmark "tm1"

WordBasic.SetEndOfBookmark "tm2"

WordBasic.CharLeft

If Asc(WordBasic.[Selection$]()) = 40 Then

WordBasic.ExtendSelection

WordBasic.EditFind ")", Direction:=0: WordBasic.WW6_EditClear

WordBasic.EditBookmark Name:="tm1"

End If

WordBasic.WW7_EditGoTo Destination:="tm1"

WordBasic.EditFind "^p" + "(", Direction:=0

While WordBasic.EditFindFound() <> 0

WordBasic.CharLeft: WordBasic.CharRight

WordBasic.EditBookmark Name:="tm1"

If WordBasic.CmpBookmarks("tm1", "tm2") = 0 Then GoTo ENDE

WordBasic.ExtendSelection

WordBasic.EditFind ")", Direction:=0

WordBasic.WW6_EditClear

WordBasic.EditFind "^p" + "(", Direction:=0

Wend

ENDE:

End Sub