Len platziert routinemäßig alle seine Figuren in Textfeldern. Er formatiert die Textfelder so, dass sie sich nicht überschneiden. (Er zeigt das Dialogfeld Layout an und deaktiviert auf der Registerkarte Position das Kontrollkästchen Überlappung zulassen.) Len möchte, dass diese Einstellung standardmäßig deaktiviert wird, aber es scheint immer standardmäßig Überlappungen zuzulassen. Er fragt sich, ob es eine Möglichkeit gibt, es vollständig auszuschalten.

Leider scheint es keine Möglichkeit zu geben, es vollständig auszuschalten – Word verwendet standardmäßig nur Überlappungen. Sie können jedoch einige Makros erstellen, die hilfreich sein können. Der erste legt die Überlappungseinstellung für ein ausgewähltes Textfeld fest:

Sub AllowOverlapFalse()

Selection.ShapeRange.WrapFormat.AllowOverlap = False End Sub

Sie müssen lediglich Ihr Textfeld erstellen, es auswählen und dann das Makro ausführen. Möglicherweise möchten Sie es sogar einer Tastenkombination zuweisen, damit Sie die Aufgabe schnell und einfach erledigen können.

Der andere Ansatz ähnelt diesem ersten, funktioniert jedoch für alle Textfelder im Dokument. Auf diese Weise können Sie alle gewünschten Textfelder erstellen und dieses Makro dann ausführen.

Sub FixTextBoxOverlap()

Dim s As Shape

For Each s In ActiveDocument.Shapes         If s.Type = msoTextBox Then             s.WrapFormat.AllowOverlap = False         End If     Next End Sub

Wie Sie diesen Makros entnehmen können, werden Textfelder in der VBA-Welt wie Formen behandelt. Dieses Makro stellt beim Durchlaufen aller definierten Formen sicher, dass es nur diejenigen betrifft, die tatsächlich Textfelder sind.

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