Dodajte TextBox
Ta makro bo aktivnemu Wordovemu dokumentu dodal polje TextBox:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation: = msoTextOrientationHorizontalno, Levo: = 1, Zgoraj: = 1, Širina: = 300, Višina: = 100 Končni pod
Izbrišite polje TextBox
Ta makro VBA bo izbrisal prvo polje TextBox v aktivnem dokumentu:
Sub DeleteTextBox () "izbriše prvo polje z besedilom v activedoc" ni neposredno, ker ni enostavno prepoznati besedilnih polj Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Potem za vsako oShape v ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectang Potem moramo preveriti oboje, če je oShape tipa msoShapeRectangle in njen besedilni okvir vsebuje prostor za pisanje If oShape.TextFrame.HasText = True Potem oShape.Delete End If End If Next oShape End If End Sub
Pišite v TextBox
Ta Wordov makro uporablja podobno metodologijo za pisanje v prvo polje TextBox v aktivnem dokumentu:
Sub WriteInTextBox () 'zapiše v prvo besedilno polje v aktivnem dokumentu Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Potem za vsako oShape v ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Potem moramo preveriti oboje, če je oShape vnesite msoShapeRectangle in njegov besedilni okvir vsebuje prostor za pisanje Če je oShape.TextFrame.HasText = True Potem oShape.TextFrame.TextRange.Insert Po "https://www.automateexcel.com/vba-code-library" Izhod Za 'želimo samo napisati v prvo polje z besedilom End If End If Next o Naslednja oblika Oblika End If End Sub
