Μακροεντολές Word VBA - TextBox: Προσθήκη, διαγραφή, εγγραφή

Προσθήκη TextBox

Αυτή η μακροεντολή θα προσθέσει ένα TextBox στο ενεργό έγγραφο του Word:

Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Πλάτος: = 300, ightψος: = 100 Τέλος υπο

Διαγραφή TextBox

Αυτή η μακροεντολή VBA θα διαγράψει το πρώτο TextBox στο ενεργό έγγραφο:

Sub DeleteTextBox () 'διαγράφει το πρώτο πλαίσιο κειμένου στο activedoc' δεν είναι απρόσβλητο επειδή δεν είναι εύκολο να εντοπιστούν τα πλαίσια κειμένου Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Στη συνέχεια για κάθε oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRecte πρέπει να ελέγξουμε και τα δύο εάν το oShape είναι τύπου msoShapeRectangle και το κείμενο κειμένου περιέχει χώρο για εγγραφή If oShape.TextFrame.HasText = True Τότε oShape.Delete End If End If Next oShape End If End Sub

Γράψτε στο TextBox

Αυτή η μακροεντολή του Word χρησιμοποιεί παρόμοια μεθοδολογία για να γράψει στο πρώτο TextBox στο ενεργό έγγραφο:

Sub WriteInTextBox () 'γράφει στο πρώτο πλαίσιο κειμένου στο ενεργό έγγραφο Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Στη συνέχεια για κάθε oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Τότε' πρέπει να ελέγξουμε και τα δύο εάν oShape είναι πληκτρολογήστε msoShapeRectangle και το πλαίσιο κειμένου του περιέχει χώρο για γραφή If oShape.TextFrame.HasText = True Στη συνέχεια oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'απλώς θέλουμε να γράψουμε στο πρώτο πλαίσιο κειμένου Τέλος Αν Τέλος Αν Επόμενο oΣχηματισμός Τέλος Αν Τέλος Υπο