Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - Bimbi

Seiten: [1]
1
Word / Antw: Office 2003: Textbreite im Textfenster automatisch anpassen
« am: Mai 23, 2015, 10:34:24 Vormittag »
Ich habe jetzt das gefunden:

Sub ScaleTextboxText()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
 If shp.TextFrame.HasText = True Then
  With shp.TextFrame
    ' erst hochskalieren, falls die Textbox nicht ausgefüllt wird
    Do While .Overflowing = False
      .TextRange.Font.Size = .TextRange.Font.Size + 1
    Loop
    ' herunterskalieren, falls die Textbox überfüllt wird
    Do While .Overflowing = True Or .TextRange.Font.Size <= 1
      .TextRange.Font.Size = .TextRange.Font.Size - 1
    Loop
  End With
 End If
Next shp
End Sub

Aber wie füge ich einen solchen Code ein?


2
Word / Office 2003: Textbreite im Textfenster automatisch anpassen
« am: Mai 23, 2015, 09:27:27 Vormittag »
Hallo.

Kann mir jemand helfen. Ich sitze derade an einem Serienbrief. Dieser enthält ein Textfeld mit fester Breite in dem ein Vorname eingedruckt werden soll. Jetzt sollen aber alle Vornamen das Textfeld in de Breite ausfüllen, die kurzen und die langen Vornamen. Gibt es diesbezüglich eine Einstellmöglichkeit? Ich finde nur das umgekehrte also Teaxtfeld am Text anpassen aber das geht nicht.

Ich danke für die Hile.

Grüße
Wolfgang

Seiten: [1]

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies einverstanden. Learn more