Mit VBA wiederkehrend Umschreiben

Sub Klammern_loeschen()
Set myRange = ActiveDocument.Range(1)
myRange.WholeStory
For i = 1 To myRange.End
Set myRange = ActiveDocument.Range(Start:=i, End:=i + 4)
Set newRange = ActiveDocument.Range(Start:=i + 5, End:=i + 6)
If myRange.Text = "vgl." And newRange.Text = " (" Then
myRange.Start = i
j = i + 1
k = j - 1
Do While myRange.Text  ")"
j = j + 1
k = j - 1
Set myRange = ActiveDocument.Range(Start:=k, End:=j)
Loop
Zitat = Mid(ActiveDocument, i, j - i)
strKlammerAuf = Replace(Zitat, "(", "")
strKlammerZu = Replace(Zitat, ")", "")
End If
Next
End Sub