Sie haben lange und intensiv an Ihrem Seitendesign gearbeitet, einschließlich einiger Tabellen, die genau richtig sind. Dann müssen Sie etwas mehr Text in eine der Tabellen einfügen. Das Ergebnis ist, dass der Text in einer Zelle alles andere einschließt und ein wenig nach unten drückt. Jetzt ist dein ganzes Design weggeworfen! Sie sehnen sich nach einer Möglichkeit, die Größe des Texts in einer Zelle automatisch anzupassen, damit das Umbrechen und Drücken nicht erfolgt.

Wenn Sie Word 2000, Word 2002 oder Word 2003 verwenden, gibt es eine integrierte Option, die den Trick ausführen kann. Befolgen Sie einfach diese Schritte:

  1. Wählen Sie die Zelle (n) aus, die Sie formatieren möchten.

  2. Wählen Sie im Menü „Tabelle“ die Option „Tabelleneigenschaften“. Das Dialogfeld Tabelleneigenschaften wird angezeigt.

  3. Wählen Sie gegebenenfalls die Registerkarte Zelle. (Siehe Abbildung 1.)

  4. Klicken Sie auf die Schaltfläche Optionen. Word zeigt das Dialogfeld Zellenoptionen an. (Siehe Abbildung 2.)

  5. Stellen Sie sicher, dass das Kontrollkästchen Text anpassen aktiviert ist.

  6. Klicken Sie auf OK, um das Dialogfeld Zellenoptionen zu schließen.

  7. Klicken Sie auf OK, um das Dialogfeld Tabelleneigenschaften zu schließen.

Was Word tut, ist, die scheinbare Größe des Textes zu verringern, damit alles passt. Word verringert die Breite des Textes, indem es den Text horizontal „zusammenzieht“ (ein hochtechnischer Begriff), ohne ihn vertikal anzupassen.

Wenn Sie Word 97 verwenden, gibt es keine inhärente Möglichkeit, die Aufgabe auszuführen. Word bietet keine Eigenschaften, die Sie überprüfen können, um die Breite verschiedener Zeichen zu bestimmen, von denen jedes unterschiedliche Größen haben und andere Attribute haben kann. Sie können jedoch ein Makro erstellen, das Ihnen helfen kann, indem Sie die Breite einer Textzeichenfolge in Punkten oder Zoll anzeigen. Das folgende VBA-Makro zeigt beispielsweise ein Eingabefeld an, in das Sie Ihre Zeichenfolge eingeben können, zeigt das Dialogfeld Schriftart an, in dem Sie Schriftart und Punktgröße angeben können, und zeigt dann die Breite der resultierenden Zeichenfolge an.

Sub GetStringLength()

Dim sngInitPos As Single     Dim sngEndPos As Single     Dim strText As String     Dim sngLength As Single

strText = InputBox("Enter the string whose length you want to determine")

Documents.Add     Dialogs(wdDialogFormatFont).Show

sngInitPos = Selection.Information(wdHorizontalPositionRelativeToPage)

Selection.InsertAfter strText     Selection.EndOf     sngEndPos = Selection.Information(wdHorizontalPositionRelativeToPage)

sngLength = sngEndPos — sngInitPos

MsgBox "Your string has a length of " & sngLength & _         " points, or " & PointsToInches(sngLength) & " inches."

ActiveDocument.Close savechanges:=False End Sub

Die einzige Schwierigkeit bei diesem Makro ist natürlich, dass es nicht „automatisch“ ist. Beispielsweise wird die Größe einer Textzeichenfolge nicht an die maximal mögliche Größe angepasst, die in eine Zelle passt. Auf lange Sicht ist es möglicherweise einfacher, mit verschiedenen Schriftgrößen zu experimentieren, um Informationen in der Zelle zu erhalten, bis Sie die richtige Größe für Ihre Anforderungen gefunden haben.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (3780) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Text in Zellen einpassen.