Word 2010 Text an Textfeld automatisch anpassen

[realshadow]

Hallo zusammen,

kleine Frage, kann ich die Schrift automatisch an ein Textfeld anpassen lassen? Also dass das Textfeld immer ausgefüllt ist, bei mehr Text kleiner und bei weniger größer.

Andersherum ist es ja kein Problem, aber in die Richtung?

Hab für Publisher eine Lösung gefunden (http://office.microsoft.com/de-de/p...n-von-text-in-einem-textfeld-HP003069893.aspx ) aber diesen Menüpunkt finde ich in Word nicht

 

[BillyBronx]

Rechtsklick auf den Rand des Textfeldes --> "Form formatieren" --> in der linken Spalte ziemlich weit unten "Textfeld" und dann "Größe der Form dem Text anpassen" einhaken.

Ich hoffe, das klappt. Gruß

 

[realshadow]

Genau das was ich NICHT möchte, ich möchte ja ein Textfeld mit fester Größe. Die Option passt ja das Textfeld an den Text an. Ich möchte es anders rum haben. Aber trotzdem danke

 

[miac]

Du könntest ein Makro benutzen:

Sub OptimizeTextinTexbox()
  Dim shape As shape
  For Each shape In ActiveDocument.Shapes
   If shape.TextFrame.HasText = True Then
    With shape
      'Vergrößern bis Überlauf
      Do While .TextFrame.Overflowing = False
        .TextFrame.TextRange.Font.Size = .TextFrame.TextRange.Font.Size + 1
      Loop
      'Verkleinern bis Optimum
      Do While .TextFrame.Overflowing = True
        .TextFrame.TextRange.Font.Size = .TextFrame.TextRange.Font.Size - 1
      Loop
   
    End With
   End If
  Next shape
End Sub

 

[realshadow]

Die Markolösung hab ich auch schon in Erwägung gezogen, aber es ist für eine Vorlage und die sollte sich automatisch anpassen...ohne extra zutun

 

[miac]

Den Makrocode kannst du ja eventuell an ein Event hängen.

Ergänzung (18. Januar 2012)

Bspw. an Document.ContentControlOnExit

 

[realshadow]

Das würde Sinn ergeben, kann ich es auch vors Drucken hängen?

 

[miac]

Dazu habe ich das hier gefunden:
http://www.administrator.de/index.php?content=151458

Probiert habe ich es nicht.
Eventuell funktioniert die Methode auch mit anderen Ereignissen.

Hier etwas Dokumentation:
http://msdn.microsoft.com/de-de/library/microsoft.office.tools.word.documentbase.aspx

Ergänzung (19. Januar 2012)

Noch eine kleine Sache. Da font.size den Datentyp single hat, funktionieren auch Schritte mit 0.5 Weite für eine feinere Anpassung.

 

[realshadow]

Habs getestet, funktioniert zwar nur als .docm und nicht als .dotm, was mir ziemlich schleierhaft ist.

Geschwindigkeitstechnisch und Druckgrößentechnisch ist das ganze natürlich grauenvoll, aber die Vorlage werd ich einmal im Quartal brauchen, da ist das schon drin.

Also vielen Dank!