Office 2003: Textbreite im Textfenster automatisch anpassen

[Bimbi]

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

[Bimbi]

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?

[maninweb]

Hallo,

erstelle Dir eine Kopie des Dokuments und speichere dieses als docm an, so dass Makros ausgeführt werden können.
Dann Alt+F11 für den VBA-Editor. Im Editor über Einfügen->Modul ein neues Modul anlegen und den Code da rein-
kopieren. Zurück zu Word gehen und ggf. die Entwicklertools aktivieren, Word -> Optionen -> Menüband, Haken
beim entsprechenden Feld setzen. Nun könntest Du das Makro von dort aus testen, Entwicklertools -> Makros.
Ggf. abschließend einen Button (ActiveX Steuerelement über die Entwicklertools) einfügen und im Entwurfs-
modus doppelklicken. Im Code, der dann erscheint, das Makro aufrufen, z.B. so:

Code: Visual Basic

1. Private Sub CommandButton1_Click()
2.  
3.   ScaleTextboxText
4.  
5. End Sub

Gruß

[amica libera]

Warum nicht einfach eine Tabelle in das Dokument einfügen und die Rahmenlinien ohne Farbe formatieren?