Schleife stoppen und weiterlaufen lassen

Computer: Software & Programmierung Visual Basic
#1

Hallo!
Ich schreibe in Word 97 eine Prozedur.

Sie Prozedur markiert nacheinander alle Absätze, die mit einer bestimmten Formatvolage formatiert sind.

Wie kann ich die Prozedur „stoppen“ und dann nach einem Klick auf einen Button weiterlaufen lassen, damit ich die markierten Absätze erst auf dem Bildschirm sehen kann und dann über eine Schaltfläche unterschiedlich bearbeiten kann (z.B. „Löschen“, „Ersetzen“, „Standard zuweisen“, Alle ersetzen")?

Private Sub ButSuchen_Click()
Dim absatz As Variant
Dim i As Integer
Dim j As Integer

i = 1
j = 0
Do Until i > ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(i).Style = CBoxSuchen.List(CBoxSuchen.ListIndex) Then
Set meinBereich = ActiveDocument.Paragraphs(i).Range
ActiveDocument.Paragraphs(i).Range.Select
j = j + 1
End If
i = i + 1
Loop
End Sub

Danke für die Hilfe!
Martin

#2

Setz am besten eine while-Schleife an die Stelle deiner Do-Schleife:

Private Sub ButSuchen_Click()
Dim absatz As Variant
Dim i As Integer
Dim j As Integer

'i = 1
'j = 0

while i [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]