Sub ParagpraphenTextLoeschenWennMitWortBeginnt()
-> Löscht den Text aller selektierten Paragraphen,
-> die mit dem eingegebenen Anfangswort anfangen
Dim s_Wort As String, s As String, x As Long, b_ok As Boolean
Dim p_s As Paragraphs, p As Paragraph, l_selection As Long
->Prüfen, ob etwas selektiert ist
l_selection = Selection.Range.End - Selection.Range.Start
If l_selection = 0 Then
MsgBox (Nichts markiert. Bitte markeiren Sie den Bereich.)
Exit Sub
End If
->Eingabe-Schleife
s_Wort =
Do
->Eingabe
s_Wort = InputBox( _
Biite geben Sie das Anfangswort für die zu löschenden Paragraphen-Texte ein., _
Paragraphen-Text löschen, wenn Text mit Anfangswort beginnt, s_Wort)
->Eingabe prüfen
If s_Wort = Then Exit Sub
b_ok = True
For x = 1 To Len(s_Wort)
s = Mid(s_Wort, x, 1)
Select Case s
Case 0 To 9, a To z, A To Z, ä, Ä, ö, Ö, ü, Ü, ß, -, _
Case Else
MsgBox (x & . Zeichen unzulässig. & vbCrLf & Bitte korrigieren.)
b_ok = False
Exit For
End Select
Next
->Prüfung ok ?
If b_ok Then Exit Do
Loop
->selektierte Paragraphen merken
Set p_s = Selection.Paragraphs
->Text der Absätze mit Anfangswort löschen
For x = p_s.Count To 1 Step -1
->nächster Paragraph
Set p = p_s(x)
->Anfangswort ?
If s_Wort = Left(p.Range.Text, Len(s_Wort)) Then
->Text löschen
p.Range.Text = Right(p.Range.Text, Len(vbCr))
End If
Next
End Sub