Word VBA-Makros - TextBox: Hinzufügen, Löschen, Schreiben

Textfeld hinzufügen

Dieses Makro fügt dem aktiven Word-Dokument eine TextBox hinzu:

Sub AddTextBox() ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, Left:=1, Top:=1, Width:=300, Height:=100 End Sub

Textfeld löschen

Dieses VBA-Makro löscht die erste TextBox im aktiven Dokument:

Sub DeleteTextBox() 'löscht das erste Textfeld in Activedoc 'nicht direkt, da es nicht einfach ist, Textfelder zu identifizieren Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' Wir müssen beide überprüfen, ob oShape vom Typ msoShapeRectangle ist und sein Textrahmen Platz zum Schreiben enthält Wenn oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub

In TextBox schreiben

Dieses Word-Makro verwendet eine ähnliche Methode, um in die erste TextBox im aktiven Dokument zu schreiben:

Sub WriteInTextBox() 'schreibt in das erste Textfeld im aktiven Dokument Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then 'wir müssen beide überprüfen, ob oShape of ist Geben Sie msoShapeRectangle ein und sein Textrahmen enthält Platz zum Schreiben Wenn oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'Wir wollen nur schreiben in das erste Textfeld End If End If Next oShape End If End Sub