Sub Обработка()
    Dim endPos As Long
    Dim R As Range
    With ActiveDocument.Bookmarks(ActiveDocument.Range.Bookmarks(1).Name)
        If .Range Like "*checkboxpunkt*" Then
            Set R = .Range
            endPos = .End
            With R.Find
                .MatchWildcards = True
                .Text = "[\<]checkboxpunkt>* "
                .Forward = True
                Do While .Execute = True And R.End <= endPos
                    Debug.Print R.End
                    'R.Select
                    R.Text = "<span class=""punkt"" data-st=data-ch=data-pt=)<span class=""punkt"" data-st=data-ch=data-pt=)<span class=""punkt"" data-st=data-ch=data-pt=)<span class=""punkt"" data-st=data-ch=data-pt=)<span class=""punkt"" data-st=data-ch=data-pt=)<span class=""punkt"" data-st=data-ch=data-pt=)"
                    R.Collapse wdCollapseEnd
                Loop
            End With
        End If
    End With
    MsgBox "11"
    '
End Sub

    If ActiveDocument.Bookmarks(ActiveDocument.Range.Bookmarks(1).Name).Range Like "*checkboxpunkt*" Then GoTo Back