Съдържание
Добавете 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
