Ausgabe 6/2012

BENUTZER ONLINE:
2629

Home > Praxis & Hilfe > Kummerkasten > Office > Artikel 28576

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

Problem: Vielen Dank für den Artikel «Ein Makro zum Zählen» im PCtipp 10/2004 auf Seite 37. Als Redaktor einer wissenschaftlichen Zeitschrift muss ich auch die Anzahl Anschläge langer Artikel zählen. Bei einem Arikel mit ca. 33000 Anschlägen kam die Meldung: «Laufzeitfehler 6 Überlauf». Wie kann dieses Problem behoben werden?

von Monica Hubacher (10.10.2004, Update: 24.08.2010)

Lösung: Sie sprechen hier folgendes Makro aus dem Artikel [1] an:

So sieht das ursprüngliche Makro aus

Der Grund für die Fehlermeldung ist, dass die Makro-Variablen im Datentyp «Integer» deklariert wurden. Dies ist auch in Ordung, solange das Ergebnis nicht ausserhalb des Bereichs von -32'768 bis 32'767 liegt. Sobald dies der Fall ist, das Ergebnis z.B. 33'000 lautet, kann die Rechnung nicht mehr verarbeitet werden.

Im Makro ist der Datentyp als «Integer» definiert

Das führt bei grossen Dokumenten zu diesem Laufzeitfehler

Um diesen Laufzeitfehler zu verhindern, können Sie in den Datentyp «Variant» verwenden, der allerdings mehr Speicherplatz benötigt.

Hier die neue Variante

Damit funktionierts.

Grundsätzlich gilt also: Für kleinere Dokumente macht es mehr Sinn mit dem bisherigen Makro zu arbeiten, da dieses weniger Speicherplatz benötigt. Sobald Sie an die Ergebnis-Grenze von 30'000 stossen, ändern Sie den Datentyp im Makro dieses Dokumentes.

---------------------------------------------
MAKRO ZUM KOPIEREN:
---------------------------------------------

Sub ZeichenZaehlen()
Dim intWords As Variant
Dim intChars As Variant
intWords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
intChars = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)
MsgBox "Diese Datei besteht aus " & intWords _
& " Wörtern und " & intChars & " Zeichen (inkl. Leerzeichen)."
End Sub

---------------------------------------------

Drucken

Weiterempfehlen

Kommentieren

Social Bookmarks

Favoriten Twitter Facebook WordPress Blogger

Wählen Sie:

Windows 7
Windows 2000
Windows XP
Windows Vista
Linux
Mac
Sicherheit
Internet
Office
Multimedia
Spiele
Hardware
Windows9x/NT
Mobile
Sonstiges

Ähnliche Themen

Excel: Wert vom letzten Datum anzeigen

Problem: Ich habe in Spalte A mehrere Kalenderdaten. Die dazu gehörenden Werte stehen in Spalte B. Ich möchte nun in einer Zelle den zugehörigen Wert...

Excel: Datum nicht aktualisieren

Problem: In einem Excel-Formular habe ich das aktuelle Datum mit =HEUTE() gesetzt. Nun möchte ich aber Folgendes: Beim erneuten Öffnen der Datei soll...

Excel zum Erfassen von Fehler-Logs benutzen

Problem: Ich möchte Excel zum Erfassen einer Art Fehlerlogfiles verwenden. Wenn ich in Spalte A einen Eintrag erstelle oder ändere, soll in der daneben...

Excel: Ordnerinhalt in Excel-Tabelle

Problem: Ich möchte wissen, ob man die Dateinamen in einem Ordner in eine Excel-Liste einfügen kann, ohne dass man jeden Titel einzeln in die Liste eintragen...

Excel: Suche Formel für «zuletzt besucht»

Problem: In meinem Excel-File heisst das eine Tabellenblatt «Besuchsliste», mit den Spalten Kd-Nr., Name, Datum. Hier trägt der Aussendienst jeden Besuch...

Mehr Praxis & Hilfe

Fachchinesisch

Mühe mit Computerbegriffen?

Im Fachchinesen finden Sie 743 Erklärungen.

AKTUELLE KUMMERKASTEN

Outlook-Kontakte aus Excel importieren

Problem: Ich habe in Excel 2010 eine Adressliste, die ich in Outlook 2010 importieren möchte. Auf dem Tabellenblatt habe ich in der ersten Zeile Spaltenüberschriften...

Suchen in Google Mail

Problem: Irgendwie sollte man in Google-Mail übers Webinterface doch ausgezeichnet suchen können. Aber wenn ich einen Suchbegriff ins Feld oberhalb der...

Mehr Artikel

Leser empfehlen

Dropdown-Liste in Excel erstellen

Problem: Ich möchte in den einzelnen Feldern der Tabelle eine Dropdown-Liste zur Auswahl der Kriterien einfügen. Wie geht das?

ASCII-Tabelle für Sonderzeichen

Ich arbeite häufig mit der Sonderzeichentabelle in Word. Mir ist es aber zu umständlich, ständig die Tabelle zu öffnen, um das Zeichen in den Text einzufügen....

Windows XP im abgesicherten Modus starten

Kann ich Windows XP auch im abgesicherten Modus starten?

Frustfreier Download bei www.pctipp.ch

Problem: Wenn ich aus den PCtipp-Downloads ein File herunterladen will, erscheint die Aufforderung, ein PCtipp-Abo zu lösen. Ich kaufe den PCtipp aber...

Firefox: Neuer Tab mit Startseite?

Problem: Wenn ich im Firefox via Ctrl+T oder «Datei/Neuer Tab» einen neuen Tab öffne, wird in diesem immer eine leere Seite (about:blank) angezeigt. Ich...

Mehr Tipps & Tricks