VBA Wörter auflisten und zählen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • VBA Wörter auflisten und zählen

    Hi,
    möchte eine Liste mit allen vorhanden Wörtern aus einem Text erstellen und dahinter die Anzahl angeben wie oft jedes Wort im Text vorkommt.
    Finde keinen Ansatz wie ich die Sache angehen kann, dazu habe ich nur wenig Kenntnisse in VBA.
    Gibt es vielleicht hierfür schon fertige Lösungen?
    Gruß
    mactoni

  • Lösung:

    Quellcode

    1. Sub AnzahlWorte()
    2. Dim rngRange As Word.Range
    3. Dim lngAnzahlWorte As Long
    4. Dim strText As String
    5. Dim lngL As Long
    6. Dim strDasWort4 As String
    7. Dim lngWortNr As Long
    9. Set rngRange = ActiveDocument.Range
    10. lngAnzahlWorte = rngRange.ComputeStatistics(wdStatisticWords)
    12. 'MsgBox lngAnzahlWorte, , "Anzahl Worte im Doument"
    15. strText = rngRange.Text
    16. strText = Replace(strText, ".", " ", 1, -1, 1)
    17. strText = Replace(strText, ",", " ", 1, -1, 1)
    18. strText = Replace(strText, "?", " ", 1, -1, 1)
    19. strText = Replace(strText, "!", " ", 1, -1, 1)
    20. strText = Replace(strText, ":", " ", 1, -1, 1)
    21. strText = Replace(strText, vbCr, " ", 1, -1, 1)
    22. strText = Replace(strText, vbLf, " ", 1, -1, 1)
    23. strText = Replace(strText, "(", " ", 1, -1, 1)
    24. strText = Replace(strText, ")", " ", 1, -1, 1)
    25. strText = Replace(strText, Chr(11), " ", 1, -1, 1)
    26. strText = Replace(strText, Chr(7), " ", 1, -1, 1)
    27. 'ggf weitere Zeichen ergänzen
    28. strText = Trim(strText)
    30. Do While Len(strText) <> lngL
    31. lngL = Len(strText)
    32. strText = Replace(strText, " ", " ", 1, -1, 1)
    33. Loop
    34. lngAnzahlWorte = UBound(Split(strText, " ", -1, 1))
    35. MsgBox lngAnzahlWorte, , "Anzahl Worte im Doument"
    37. 'wie oft kommt das 4. Wort im Documet im Gesamten Text vor:
    38. lngWortNr = 1
    39. strDasWort4 = Split(strText, " ", -1, 1)(lngWortNr - 1)
    40. lngAnzahlWorte = (Len(strText) - Len(Replace(strText, strDasWort4, "", 1, -1, 1))) / Len(strDasWort4)
    41. MsgBox lngAnzahlWorte, , "So oft gibts das Wort: " & strDasWort4
    43. End Sub
    Alles anzeigen


    Gruß
    mactoni