Indholdsfortegnelse
Tilføj TextBox
Denne makro tilføjer en tekstboks til det aktive Word -dokument:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub
Slet TextBox
Denne VBA -makro sletter den første TextBox i det aktive dokument:
Sub DeleteTextBox () 'sletter første tekstboks i activedoc' ikke lige fremad, fordi det ikke er let at identificere tekstbokse Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Every oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' vi skal kontrollere begge, om oShape er af typen msoShapeRectangle, og dets tekstramme indeholder plads til skrivning Hvis oShape.TextFrame.HasText = True Herefter oShape.Delete End If End If Next oShape End If End Sub
Skriv i TextBox
Denne Word -makro bruger lignende metode til at skrive til den første TextBox i det aktive dokument:
Sub WriteInTextBox () 'skriver ind i første tekstboks i aktivt dokument Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Every oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Herefter' skal vi kontrollere begge, om oShape er af skriv msoShapeRectangle og dens tekstramme indeholder plads til skrivning Hvis oShape.TextFrame.HasText = True Så oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'vi bare vil skrive i første tekstboks Slut hvis ende hvis næste oForm slut hvis slut sub
