---

Hallo zusammen,

weiß jemand, ob ich Word 2007 beibringen kann, dass mir beim Wörterzählen "Wörter" die nur aus einem Buchstaben (warum auch immer) oder aus zwei Buchstaben bestehen nicht als Wort gezählt werden, sondern erst Wörter mit >=3 Buchstaben?

------------------
Gruß

rafi

---

Hallo Rafi,
ich wüsste nicht wie, könnte mir aber vorstellen, dass das relativ simple mit einem Makro zu erledigen ist.

Die Logik wäre dann eigentlich ganz simple... Jeden Buchstaben lesen > bei Anzahl größer 2 oder 3 als Wort zählen > bei Leerzeichen oder Zeilenumbruch den Buchstabenzähler reseten

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

in etwa so

Code:

---

Sub ZeichenZaehlen()
    Dim intWords As Variant
    Dim intChars As Variant
    intWords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
    intChars = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)
    lngWorteTotal = ActiveDocument.words.Count
   
    For Each varAktWort In ActiveDocument.words
        strWort = Trim(LCase(varAktWort))

        If Len(strWort) >= 3 Then
            Found = False

            If Not Found Then
            intNumWorte = intNumWorte + 1
            End If
        End If

        lngWorteTotal = lngWorteTotal - 1
        StatusBar = "Bearbeite Wort " & intNumWorte & _
        " von " & lngWorteTotal
    Next varAktWort
   
    MsgBox "Diese Datei besteht aus " & intWords _
    & " Wörtern und " & intChars & " Zeichen (inkl. Leerzeichen)." & vbLf _
    & intNumWorte & " Wörter sind >= 3 Zeichen"
End Sub

---

[Diese Nachricht wurde von Thomas Harmening am 06. Sep. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP