Pridajte textové pole
Toto makro pridá textový pole do aktívneho dokumentu programu Word:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientácia: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub
Odstráňte TextBox
Toto makro VBA odstráni prvý textový box v aktívnom dokumente:
Sub DeleteTextBox () "vymaže prvé textové pole v activedoc", nie priamočiare, pretože nie je ľahké identifikovať textové polia Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then " musíme skontrolovať, či je oShape typu msoShapeRectangle a jeho textový rámec obsahuje miesto na písanie If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub
Napíšte do textového poľa
Toto makro programu Word používa podobnú metodológiu na zápis do prvého textového poľa v aktívnom dokumente:
Sub WriteInTextBox () 'píše do prvého textového poľa v aktívnom dokumente 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 zadajte msoShapeRectangle a jeho textový rámec obsahuje miesto na písanie If oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "chceme len písať do prvého textového poľa End If End If Next oShape End If End Sub