Textlänge messen

Ein ebenfalls regelmäßig auftretendes Problem ist die Längenmessung von Texten. Dabei geht es nicht um die Anzahl der Buchstaben, denn die können Sie ja mit der Len()-Funktion ermitteln.

Vielmehr sollen lange Bezeichnungen so gekürzt werden, dass sie in eine vorgegebene Breite hineinpassen, selbstverständlich unter Berücksichtigung von Schriftart und -größe.

Es gibt dafür einige Windows-API-Funktionen, mit deren Hilfe die Aufgabe ebenso lösbar wäre. Aber wenn es mit Word-eigenen Fähigkeiten auch geht, sollten Sie diese bevorzugen.

Sie müssen sonst nicht nur prüfen, ob die benötigten API-Funktionen überhaupt in allen Windows-Versionen enthalten sind, sondern schließen ziemlich sicher die Apple-Benutzer aus, auf deren Rechnern ja auch Word läuft.

In diesem Fall sollen in einer Listbox einige Standardpfade von Word angezeigt werden. Diese können je nach Installation so lang sein, dass sie nicht vollständig sichtbar sind. Daher sollen sie entsprechend gekürzt werden.

Entwurf des Formulars mit Listbox und Label

Das folgende Listing enthält den üblichen Code mit der AddItem-Methode, um neue Zeilen an die Listbox anzufügen. Die hier bereits benutzte TextMaxLaenge-Funktion folgt weiter unten.