„Word VBA“ makrokomandos - „TextBox“: pridėti, ištrinti, rašyti

Pridėkite „TextBox“

Ši makrokomanda pridės „TextBox“ prie aktyvaus „Word“ dokumento:

Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientacija: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Plotis: = 300, Aukštis: = 100 End Sub

Ištrinkite „TextBox“

Ši VBA makrokomanda ištrins pirmąjį aktyvaus dokumento „TextBox“:

Sub DeleteTextBox () „ištrina pirmąjį„ ActiveDoc “teksto laukelį ne iš karto, nes nesunku atpažinti teksto laukelius Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Tada kiekvienam„ ActiveDocument “oShape.Shapes If oShape.AutoShapeType = msoShapeRectangle Then“ turime patikrinti, ar oShape yra msoShapeRectangle tipo, ir jo teksto rėmelyje yra vieta rašymui If oShape.TextFrame.HasText = True Tada oShape.Delete End If End If Next oShape End If End Sub

Rašykite „TextBox“

Ši „Word“ makrokomanda naudoja panašią metodiką rašydama į pirmąjį aktyvaus dokumento „TextBox“:

Sub WriteInTextBox () “įrašo į pirmąjį teksto laukelį aktyviame dokumente Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Tada kiekvienai oShape į ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Tada 'turime patikrinti abu, ar oShape yra tipo msoShapeRectangle ir jo teksto rėmelyje yra vieta rašymui If oShape.TextFrame.HasText = True Tada oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "mes tiesiog norime parašyti į pirmąjį teksto laukelį Pabaiga, jei pabaiga, jei kita oShape Pabaiga, jei pabaiga