Macros Word VBA - Zone de texte : ajouter, supprimer, écrire

Ajouter une zone de texte

Cette macro ajoutera une zone de texte au document Word actif :

Sub AddTextBox() ActiveDocument.Shapes.AddTextBox Orientation :=msoTextOrientationHorizontal, Gauche :=1, Haut :=1, Largeur :=300, Hauteur :=100 End Sub

Supprimer la zone de texte

Cette macro VBA supprimera la première zone de texte du document actif :

Sub DeleteTextBox() 'supprime la première zone de texte dans activedoc' pas directement car il n'est pas facile d'identifier les zones de texte Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' nous devons vérifier à la fois si oShape est de type msoShapeRectangle et son cadre de texte contient un emplacement pour l'écriture If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub

Écrire dans la zone de texte

Cette macro Word utilise une méthodologie similaire pour écrire dans la première zone de texte du document actif :

Sub WriteInTextBox() 'écrit dans la première zone de texte du document actif Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then 'nous devons vérifier les deux si oShape est de tapez msoShapeRectangle et son cadre de texte contient un espace pour l'écriture Si oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit Pour 'nous voulons juste écrire dans la première zone de texte End If End If Next oShape End If End Sub