Word VBA макроси - TextBox: Добавяне, изтриване, писане

Добавете 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 If 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 If 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 Следващ oShape End If End Sub