| Rubrik: Word | VB-Versionen: VBA | 29.09.15 |
 Mitzählen eingegebener Zeichen in Echtzeit (VBA,Word 2007)Dieses VBA-Projekt realisiert das Mitzählen nebst Anzeige der Anzahl von eingegebenen Zeichen (Tastaturanschläge) in Echtzeit beim Schreiben eines Textes. | ||
Autor:  Dietrich Herrmann | Bewertung:  | Views: 7.033 |
| ohne Homepage | System: WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt |
Die Aufgabenstellung war, beim Tippen eines Textes in Word sozusagen in Echtzeit die ab einem bestimmten Startzeitpunkt eingegebenen Zeichen zu zählen. Einfacher Grund: Man möchte wissen, ob schon eine gewisse vorgegebene Zeichenzahl beim Schreiben erreicht ist.
Prinzipielle Arbeitsweise ist die folgende:
Man setzt den Textcursor im Dokument. Dann klickt man in der Userform ("CountCharacters") des Projekts auf "starten der Zählung". Jetzt kann man beginnen zu schreiben. In der Userform wird angezeigt, wie viele Zeichen schon geschrieben
wurden und wie viele man noch schreiben kann, bis die vorgegebene Anzahl erreicht ist. Die vorzugebende Anzahl kann im entsprechenden Feld der Userform eingegeben werden.
Die Vorgabe der Zählart (RadioButtons) kann sein
- Zeichen (alle eingegebenen Zeichen werden gezählt, aber nicht die Absatzmarken)
- Zeichen ohne Leerzeichen (keine Absatzmarken)
- Zeichen mit Absatzmarken
Die Felder Textmarkendefinition:
Das Programm arbeitet so, dass bei Start des Zählprozesses eine erste temporäre Textmarke gesetzt wird. Eine zweite temporäre Textmarke wird dann mit dem Schreibprozess weiter "geschoben". Die Zeichenanzahl wird dann zwischen den
zwei Marken ermittelt. In der Userform können die beiden Mraken definiert werden. Standardmäßig werden zwei Marken nach dem Zufallsprinzip gebildet.
Im Projekt werden auch spezielle Arbeitsweisen gezeigt:
- Erzeugen von Text (Marken) nach dem Zufallsprinzip
- Positionieren einer Userform bspw. an den rechten Rand des Word-Fensters
- Verwendung eines Timers (zur intervallmäßigen Überprüfung der aktuellen Zeichenzahl)
- Verwendung einer Variablen im Dokument
- Signalton
