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
