Додати TextBox
Цей макрос додасть TextBox до активного документа Word:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Орієнтація: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub
Видалити TextBox
Цей макрос VBA видалить перший TextBox в активному документі:
Sub DeleteTextBox () 'видаляє перше текстове поле в activedoc' не прямолінійно, оскільки нелегко визначити текстові поля Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Тоді для кожної oShape в ActiveDocument.Shapes Якщо oShape.AutoShapeType = msoShapeRectang нам потрібно перевірити обидва, чи oShape має тип msoShapeRectangle, а його текстовий кадр містить місце для запису If oShape.TextFrame.HasText = True Тоді 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 Тоді для кожної oShape в ActiveDocument.Shapes Якщо oShape.AutoShapeType = msoShapeRectangle Тоді' нам потрібно перевірити обидва значення, якщо oShape введіть msoShapeRectangle, а його текстовий кадр містить місце для запису If oShape.TextFrame.HasText = True Тоді oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Вийти Для 'ми просто хочемо написати у перше текстове поле End If End If End If Next oShape End If End Sub
