Tipps & Tricks 21.01.2005, 13:00 Uhr

Word-Makro zum Wörter und Zeichen zählen II

ich muss einen Text auf 500 Wörter mit höchstens 4000 Zeichen reduzieren. Gibt es eine Möglichkeit diese Zahlen irgendwo einzugeben, damit Word «Stop» sagt, wenn ich diese Zahl erreicht habe? Oder muss ich das jeweils selbst über das Menü «Extras/Wörter zählen» überprüfen?
Kopieren Sie das Makro unten und öffnen Sie dann in Ihrem Dokument (oder in der Normal.dot) den VB-Editor. Fügen Sie dort über "Einfügen/Modul" ein neues Modul hinzu und fügen Sie das kopierte Makro im Codefenster ein.
Ändern Sie die maximalen Zahlen gemäss Ihren Wünschen ab.
Das wars schon. Schreiben Sie nun Ihren Text und sobald Sie das Gefühl haben, dass es notwendig sein könnte, rufen Sie das Makro auf. Haben Sie die Obergrenze noch nicht erreicht, erhalten Sie folgende Meldung:
Und wenn Sie eine der vorgegebenen Grenzen überschritten haben, erhalten Sie ebenfalls eine entsprechende Meldung:
Eine etwas vereinfachte Variante finden Sie auch mit Webcode 28576 [1]
----------------------------------------------
MAKRO ZUM KOPIEREN:
----------------------------------------------
Sub ZeichenZaehlen()
Dim effW, effC, C As Variant
Dim maxW, maxC, W As Variant
Dim Wtxt, Ctxt As String
maxW = 500 'Max Anzahl Worte
maxC = 4000 'Max Anzahl Zeichen
effW = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
effC = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)
If maxW < effW Or maxC < effC Then
If maxW < effW Then
W = effW & " (statt max " & maxW & ")"
Else
W = effW
End If
If maxC < effC Then
C = effC & " (statt max " & maxC & ")"
Else
C = effC
End If
MsgBox "ACHTUNG! Sie haben die maximale Anzahl Worte " & _
"bzw. Zeichen überschritten" & Chr(13) & Chr(13) & _
"Verwendete Anzahl WORTE: " & W & Chr(13) & _
"Verwendete Anzahl ZEICHEN: " & C
Else
W = maxW - effW
C = maxC - effC
MsgBox "* Maximale Anzahl WORTE: " & maxW & Chr(13) & _
"* Maximale Anzahl ZEICHEN: " & maxC & Chr(13) & Chr(13) & _
"* Verwendete Anzahl WORTE: " & effW & Chr(13) & _
"* Verwendete Anzahl ZEICHEN: " & effC & Chr(13) & Chr(13) & _
"Sie können noch " & W & " WORTE bzw. " & C & " ZEICHEN eingeben"
End If
End Sub
----------------------------------------------


Kommentare
Es sind keine Kommentare vorhanden.