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