Добавить текстовое поле
Этот макрос добавит TextBox в активный документ Word:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Ориентация: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub
Удалить текстовое поле
Этот макрос VBA удалит первый TextBox в активном документе:
Sub DeleteTextBox () 'удаляет первое текстовое поле в activedoc' не сразу, потому что его нелегко идентифицировать текстовые поля Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' нам нужно проверить оба, если oShape имеет тип msoShapeRectangle и его текстовый фрейм содержит место для записи If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub
Напишите в TextBox
Этот макрос Word использует аналогичную методологию для записи в первое поле TextBox в активном документе:
Sub WriteInTextBox () 'записывает в первое текстовое поле в активном документе Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then' нам нужно проверить оба, если oShape имеет введите msoShapeRectangle и его текстовый фрейм содержит место для записи Если oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'мы просто хотим написать в первое текстовое поле End If End If Next oShape End If End Sub
