Word VBA-macro's - TextBox: toevoegen, verwijderen, schrijven

Tekstvak toevoegen

Deze macro voegt een tekstvak toe aan het actieve Word-document:

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

Tekstvak verwijderen

Deze VBA-macro verwijdert de eerste TextBox in het actieve document:

Sub DeleteTextBox () 'verwijdert eerste tekstvak in activedoc' niet eenvoudig omdat het niet gemakkelijk is om tekstvakken te identificeren Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Dan voor elke oShape in ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' we moeten beide controleren of oShape van het type msoShapeRectangle is en het tekstframe plaats bevat om te schrijven If oShape.TextFrame.HasText = True Dan oShape.Delete End If End If Next oShape End If End Sub

Schrijf in tekstvak

Deze Word-macro gebruikt een vergelijkbare methode om naar het eerste tekstvak in het actieve document te schrijven:

Sub WriteInTextBox() 'schrijft in eerste tekstvak in actief document Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Dan 'moeten we beide controleren of oShape van typ msoShapeRectangle en het tekstframe bevat plaats om te schrijven If oShape.TextFrame.HasText = True Dan oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Afsluiten Voor 'we willen gewoon schrijven in eerste tekstvak End If End If Next oVorm End If End Sub