Tartalomjegyzék
TextBox hozzáadása
Ez a makró hozzáad egy szövegdobozt az aktív Word dokumentumhoz:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Tájolás: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Magasság: = 100 End Sub
A TextBox törlése
Ez a VBA makró törli az aktív dokumentum első szövegdobozát:
A Sub DeleteTextBox () 'törli az első szövegdobozt az activedoc' -ban nem gyors, mert nem könnyű azonosítani a szövegdobozokat Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 then For each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' mindkettőt ellenőriznünk kell, ha az oShape msoShapeRectangle típusú, és a szövegkeret tartalmaz írási helyet If oShape.TextFrame.HasText = True Akkor oShape.Delete End If End If Next oShape End If End Sub
Írjon a TextBoxba
Ez a Word makró hasonló módszert használ az aktív dokumentum első szövegdobozába íráshoz:
Az Sub WriteInTextBox () 'beírja az aktív szövegdoboz első szövegmezőjébe Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Majd minden oShape esetén az ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Akkor' mindkettőt ellenőriznünk kell, ha az oShape értéke type msoShapeRectangle és annak szövegkerete tartalmaz írási helyet If oShape.TextFrame.HasText = True Akkor oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "csak írni akarunk az első szövegmezőbe Vége Ha Vége Ha Következő oAlak Vége Ha Vége Al