Word VBA -makron - Textbox: Lägg till, ta bort, skriv

Lägg till TextBox

Detta makro lägger till en textruta i det aktiva Word -dokumentet:

Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub

Ta bort TextBox

Detta VBA -makro raderar den första textboxen i det aktiva dokumentet:

Sub DeleteTextBox () 'raderar första textruta i activedoc' inte direkt eftersom det inte är lätt att identifiera textrutor Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' vi måste kontrollera både om oShape är av typen msoShapeRectangle och dess textram innehåller plats för att skriva If oShape.TextFrame.HasText = True Sedan oShape.Delete End If End If Next oShape End If End Sub

Skriv i TextBox

Detta Word -makro använder liknande metodik för att skriva till den första textboxen i det aktiva dokumentet:

Sub WriteInTextBox () 'skriver in i första textrutan i aktivt dokument Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Då' måste vi kontrollera båda om oShape är av skriv msoShapeRectangle och dess textram innehåller plats för skrivning Om oShape.TextFrame.HasText = True Då oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'vill vi bara skriva i första textrutan Slut Om Slut Om Nästa oForm Slut Om Slut Sub