Makra Word VBA - TextBox: přidávání, mazání, zápis

Přidejte TextBox

Toto makro přidá TextBox do aktivního dokumentu aplikace Word:

Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientace: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub

Odstranit TextBox

Toto makro VBA odstraní první textové pole v aktivním dokumentu:

Sub DeleteTextBox () 'odstraní první textové pole v activedoc' ne straithforward, protože jeho textová pole není snadné identifikovat Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' musíme zkontrolovat obojí, pokud oShape je typu msoShapeRectangle a jeho textový rámec obsahuje místo pro psaní If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub

Pište do textového pole

Toto makro aplikace Word používá podobnou metodiku k zápisu do prvního textového pole v aktivním dokumentu:

Sub WriteInTextBox () 'zapíše do prvního textového pole v aktivním dokumentu Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then' we need to check both if oShape is of zadejte msoShapeRectangle a jeho textový rámeček obsahuje místo pro psaní If oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "chceme jen psát do prvního textového pole End If End If Next oShape End If End Sub
wave wave wave wave wave