Aggiungi casella di testo
Questa macro aggiungerà un TextBox al documento Word attivo:
Sub AddTextBox() ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, Left:=1, Top:=1, Width:=300, Height:=100 End Sub
Elimina casella di testo
Questa macro VBA eliminerà il primo TextBox nel documento attivo:
Sub DeleteTextBox() 'elimina la prima casella di testo in activedoc 'non è semplice perché non è facile identificare le caselle di testo Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then Per ogni oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' dobbiamo controllare entrambi se oShape è di tipo msoShapeRectangle e il suo frame di testo contiene spazio per scrivere If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub
Scrivi in TextBox
Questa macro di Word utilizza una metodologia simile per scrivere nella prima casella di testo nel documento attivo:
Sub WriteInTextBox() 'scrive nella prima casella di testo nel documento attivo Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then 'dobbiamo controllare entrambi se oShape è di digita msoShapeRectangle e il suo riquadro di testo contiene spazio per la scrittura If oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For 'vogliamo solo scrivere nella prima casella di testo End If End If Next oShape End If End Sub
