Sisällysluettelo
Lisää TextBox
Tämä makro lisää TextBoxin aktiiviseen Word -asiakirjaan:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Suunta: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Leveys: = 300, Korkeus: = 100 End Sub
Poista TextBox
Tämä VBA -makro poistaa aktiivisen asiakirjan ensimmäisen TextBoxin:
Sub DeleteTextBox () 'poistaa ensimmäisen tekstiruudun aktivedocissa' ei ole suoraviivaista, koska tekstikenttiä ei ole helppo tunnistaa Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 then For each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' meidän on tarkistettava, onko oShape -tyyppinen msoShapeRectangle ja sen tekstikehys sisältää kirjoittamispaikan If oShape.TextFrame.HasText = True Sitten oShape.Delete End If End Jos Next oShape End If End Sub
Kirjoita TextBoxiin
Tämä Word -makro käyttää samanlaisia menetelmiä kirjoittaakseen aktiivisen asiakirjan ensimmäiseen TextBoxiin:
Sub WriteInTextBox () 'kirjoittaa aktiivisen asiakirjan ensimmäiseen tekstikenttään Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Sitten jokaisen ActiveDocumentin oShape.Shapes If oShape.AutoShapeType = msoShapeRectangle Sitten' meidän on tarkistettava, onko oShape type msoShapeRectangle ja sen tekstikehys sisältävät kirjoittamispaikan If oShape.TextFrame.HasText = True Sitten oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "haluamme vain kirjoittaa ensimmäiseen tekstikenttään Lopeta Jos loppu Jos seuraava oMuoto Lopeta jos loppu Al