Wordi VBA makrod - tekstikast: lisamine, kustutamine, kirjutamine

Lisage TextBox

See makro lisab aktiivsele Wordi dokumendile TextBoxi:

Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Kõrgus: = 100 End Sub

Kustuta TextBox

See VBA makro kustutab aktiivse dokumendi esimese TextBoxi:

Sub DeleteTextBox () 'kustutab esimese tekstivälja aktivedoc'is mitte kiiresti, sest tekstivälju pole lihtne tuvastada Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Siis iga oShape jaoks ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then' peame kontrollima, kas oShape on tüüpi msoShapeRectangle ja selle tekstiraam sisaldab kirjutamispaika If oShape.TextFrame.HasText = True Siis oShape.Delete End If End If Next oShape End If End Sub

Kirjutage TextBoxi

See Wordi makro kasutab sarnast metoodikat aktiivse dokumendi esimesse TextBoxi kirjutamiseks:

Sub WriteInTextBox () 'kirjutab aktiivse dokumendi esimesse tekstikasti Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Siis iga oShape jaoks ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Siis peame kontrollima mõlemat, kas oShape on tüüp msoShapeRectangle ja selle tekstiraam sisaldab kirjutamiskohta If oShape.TextFrame.HasText = True Siis oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "tahame lihtsalt kirjutada esimesse tekstikasti Lõpp kui lõpp Kui järgmine oKujund Lõpp kui lõpp Alam