Innholdsfortegnelse
Legg til TextBox
Denne makroen vil legge til en tekstboks i det aktive Word -dokumentet:
Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation: = msoTextOrientationHorizontal, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub
Slett TextBox
Denne VBA -makroen sletter den første tekstboksen i det aktive dokumentet:
Sub DeleteTextBox () 'sletter første tekstboks i activedoc' ikke rett frem fordi det ikke er lett å identifisere tekstbokser Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' vi må sjekke begge om oShape er av typen msoShapeRectangle og tekstrammen inneholder sted for skriving If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next ifShape End If End Sub
Skriv i TextBox
Denne Word -makroen bruker lignende metode for å skrive til den første tekstboksen i det aktive dokumentet:
Sub WriteInTextBox () 'skriver inn i den første tekstboksen i det aktive dokumentet Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Every oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Da' må vi sjekke begge om oShape er av skriv msoShapeRectangle og dens tekstramme inneholder sted for skriving 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 End If End If Next oShape End If End Sub
