Private Sub ListView1_DblClick()
 
Dim strWort As String
Dim intStart As Integer
 
 
 If ListView1.SelectedItem.Text > 2 Then
 
        strWort = ListView1.SelectedItem.Text & "-Einstellungen"
        intStart = InStr(1, frmCleanedDocument.rtfText.Text, strWort)
 
            If intStart > 0 Then
                frmCleanedDocument.rtfText.SelStart = intStart - 1
                frmCleanedDocument.rtfText.SelLength = Len(strWort)
            End If
 
End If
 
 
End Sub