George möchte nur den Abstand zwischen Wörtern in einem Text verdichten, den er in einem Dokument auswählt. Er kann die Punktgröße jedes Feldes einzeln ändern. Er kann dies auch tun, indem er den Platz findet und durch einen Platz mit einer kleineren Schriftgröße ersetzt. Er möchte jedoch die Größe der Räume schrittweise verringern. (Zum Beispiel 0,1 Punkte in jedem Schritt.)

Es ist nicht möglich, genau das zu tun, was George will, da Sie in Word die Schriftgröße nur in Schritten von einem halben Punkt und nicht in Schritten von einem zehnten Punkt anpassen können. Wenn eine Dekrementierung um jeweils einen halben Punkt ausreicht, ist es am besten, ein Makro zu verwenden:

Sub StepSpaceFontSize()

Dim F As Double     Dim C As Long

For C = 1 To Len(Selection)

If Asc(Mid(Selection, C, 1)) = 32 Then             F = Selection.Range.Characters(C).Font.Size             If F > 5 Then                 Selection.Range.Characters(C).Font.Size = (F - 0.5)

End If         End If     Next C End Sub

Das Makro durchläuft jedes Zeichen in dem ausgewählten Text und verringert, wenn das Zeichen ein Leerzeichen ist, die Punktgröße nur dieses Leerzeichens. Das Makro erzwingt eine Untergrenze für die Schriftgröße, da nur 5 Punkte erreicht werden.

_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 (13717) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.