Private Sub Dateien_Splitten()
With ActiveDocument.Range.Find
Last = .Parent.End
.ClearFormatting
.Text = "*Dateien:"
.MatchWildcards = False
.Execute
If .Found Then
Start = .Parent.Start
Start2 = .Parent.End
Ende = InStr(Start2, ActiveDocument.Range.Text, "*")
If Start2 < Last And Ende > Start2 Then
Dateien = Split(Trim(ActiveDocument.Range(Start2, Ende - 1).Text), ",")
End If
For Each dt In Dateien
ActiveDocument.Range.InsertAfter vbNewLine & dt
Next dt
If ActiveDocument.Range(Ende, Ende + 1) = vbCr Then Ende = Ende + 1
ActiveDocument.Range(Start, Ende).Delete
End If
End With
End Sub