Macros de Word VBA - TextBox: Agregar, Eliminar, Escribir

Agregar TextBox

Esta macro agregará un cuadro de texto al documento de Word activo:

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

Eliminar TextBox

Esta macro de VBA eliminará el primer TextBox en el documento activo:

Sub DeleteTextBox () 'elimina el primer cuadro de texto en activedoc' no directamente porque no es fácil identificar los cuadros de texto Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For each oShape in ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' necesitamos verificar si oShape es de tipo msoShapeRectangle y su marco de texto contiene un lugar para escribir If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub

Escribir en TextBox

Esta macro de Word utiliza una metodología similar para escribir en el primer TextBox del documento activo:

Sub WriteInTextBox () 'escribe en el primer cuadro de texto en el documento activo. escriba msoShapeRectangle y su marco de texto contiene un lugar para escribir Si oShape.TextFrame.HasText = True Entonces oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'solo queremos escribir en el primer cuadro de texto End If End If Next oShape End If End Sub