Dodajte TextBox
Ova makronaredba će dodati TextBox u aktivni Wordov dokument:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orijentacija: = msoTextOrientationHorizontalno, Lijevo: = 1, Vrh: = 1, Širina: = 300, Visina: = 100 Kraj Sub
Izbrišite TextBox
Ova VBA makro izbrisat će prvi TextBox u aktivnom dokumentu:
Sub DeleteTextBox () 'briše prvo tekstualno polje u activedoc -u' nije jednostavno jer nije lako identificirati tekstne okvire Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then Za svaki oShape u ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectang Zatim moramo provjeriti oboje ako je oShape tipa msoShapeRectangle i njegov tekstualni okvir sadrži mjesto za pisanje If oShape.TextFrame.HasText = True Onda oShape.Delete End If End If Next oShape End If End Sub
Pišite u TextBox
Ova Word makro koristi sličnu metodologiju za pisanje u prvi TextBox u aktivnom dokumentu:
Sub WriteInTextBox () 'upisuje u prvo tekstualno polje u aktivnom dokumentu Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Zatim za svaki oShape u ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Tada' moramo provjeriti je li oShape tada upišite msoShapeRectangle i njegov tekstualni okvir sadrži mjesto za pisanje If oShape.TextFrame.HasText = True then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Izlaz Za 'želimo samo napisati u prvo tekstualno polje End If End If Sljedeći oOblik End If End Sub