Sub ErsetzeAbschnitt()
Dim userInput As String
Dim doc As Document
Dim range As range
Dim startRange As range
Dim endRange As range
Dim foundSection As Boolean
Dim stl As Style
userInput = InputBox("Geben Sie den Abschnitt ein, der ersetzt werden soll:", "Abschnitt ersetzen")
Set doc = ActiveDocument
Set range = doc.Content
foundSection = False
For Each para In doc.Paragraphs
If para.range.ListFormat.ListType <> wdListNoNumbering Then
If Left(para.range.ListFormat.ListString, Len(userInput)) = userInput Then
If Not foundSection Then
Set startRange = para.range
foundSection = True
Set stl = startRange.Style
End If
ElseIf foundSection Then
Set endRange = para.range
If endRange.Style = startRange.Style Then Exit For
End If
End If
Next para
If foundSection Then
range.Start = startRange.Start
range.End = IIf(endRange.Style = startRange.Style, endRange.Start - 1, endRange.End)
range.Text = "...pp..."
range.Style = stl
Else
MsgBox "Der angegebene Abschnitt wurde nicht gefunden.", vbExclamation
End If
End Sub