Satura rādītājs
Pievienojiet TextBox
Šis makro aktīvajam Word dokumentam pievienos TextBox:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientācija: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub
Dzēst TextBox
Šis VBA makro dzēsīs pirmo TextBox aktīvajā dokumentā:
Sub DeleteTextBox () 'dzēš pirmo teksta lodziņu activedoc' nav ātrs, jo nav viegli identificēt tekstlodziņus Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Tad katrai oShape ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' mums jāpārbauda, vai oShape ir tipa msoShapeRectangle un tā teksta ietvarā ir vieta rakstīšanai If oShape.TextFrame.HasText = True, tad oShape.Delete End If End If Next oShape End If End Sub
Rakstiet TextBox
Šis Word makro izmanto līdzīgu metodoloģiju, lai rakstītu pirmajā TextBox aktīvajā dokumentā:
Sub WriteInTextBox () 'ieraksta pirmajā teksta lodziņā aktīvajā dokumentā Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Tad katrai oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Tad' mums jāpārbauda abi, vai oShape ir ierakstiet msoShapeRectangle un tā teksta ietvarā ir vieta rakstīšanai If oShape.TextFrame.HasText = True Tad oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "mēs vienkārši vēlamies rakstīt pirmajā tekstlodziņā Beigu Ja Beigu Ja Nākamo oVeiciet Beigu Ja Beigu Apakš