İçindekiler
Metin Kutusu Ekle
Bu makro, etkin Word belgesine bir Metin Kutusu ekleyecektir:
Sub AddTextBox() ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, Left:=1, Top:=1, Width:=300, Height:=100 End Sub
Metin Kutusunu Sil
Bu VBA makrosu, etkin belgedeki ilk Metin Kutusunu siler:
Sub DeleteTextBox() 'activedoc'taki ilk metin kutusunu siler çünkü metin kutularını tanımlamak kolay değildir çünkü ActiveDocument.Shapes.Count > 0 Sonra ActiveDocument.Shapes'teki Her oShape İçin Şekil Olarak Dim oShape.AutoShapeType = msoShapeRectangle Then ' oShape'in msoShapeRectangle türünde olup olmadığını ve metin çerçevesinin yazmak için yer içerip içermediğini kontrol etmemiz gerekir If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub
TextBox'a yaz
Bu Word makrosu, etkin belgedeki ilk Metin Kutusuna yazmak için benzer bir metodoloji kullanır:
Sub WriteInTextBox() 'etkin belgedeki ilk metin kutusuna yazar ActiveDocument.Shapes.Count > 0 ise oShape As Shape As Dim ActiveDocument.Shapes'teki Her oShape İçin oShape.AutoShapeType = msoShapeRectangle O zaman 'oShape'in her ikisini de kontrol etmemiz gerekir msoShapeRectangle yazın ve metin çerçevesi yazmak için yer içerir If oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'biz sadece yazmak istiyoruz' ilk metin kutusuna End If End If Next oShape End If End Sub
