Prüfen ob ein Wort in einem Word-Dokument vorkommt

Mit folgender Funtkion kann geprüft werden, ob ein Wort in einem Worddokument vorkommt.


Function WordExists(suche As StringAs Boolean
    Dim txt As String

    txt = ActiveDocument.Range.Text
    If InStr(1, txt, suche, vbTextCompare) > 0 Then
        WordExists = True
        Exit Function
    End If

    WordExists = False

End Function

Code eingefügt mit Syntaxhighlighter 4.14


Your rating: Keine Average: 5 (4 votes)