Adăugați TextBox
Această macrocomandă va adăuga o TextBox la documentul Word activ:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientare: = msoTextOrientationHorizontal, Stânga: = 1, Sus: = 1, Lățime: = 300, Înălțime: = 100 Sfârșit Sub
Ștergeți TextBox
Această macrocomandă VBA va șterge prima TextBox din documentul activ:
Sub DeleteTextBox () „șterge prima casetă de text din activedoc” nu direct, deoarece nu este ușor de identificat casetele de text. trebuie să verificăm atât dacă oShape este de tip msoShapeRectangle, cât și textul său conține un loc pentru scriere If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub
Scrieți în TextBox
Această macrocomandă Word utilizează o metodologie similară pentru a scrie în prima TextBox din documentul activ:
Sub WriteInTextBox () 'scrie în prima casetă de text din documentul activ Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Apoi pentru fiecare oShape din ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Atunci' trebuie să verificăm atât dacă oShape este de tastați msoShapeRectangle și textframe-ul său conține loc pentru scriere Dacă oShape.TextFrame.HasText = True Apoi oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Ieșiți pentru "vrem doar să scriem în prima casetă text Sfârșit Dacă Sfârșit Dacă Următor oShape Sfârșit Dacă Sfârșit Sub
