Word VBA Makra - TextBox: Dodaj, Usuń, Napisz

Dodaj pole tekstowe

To makro doda TextBox do aktywnego dokumentu programu Word:

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

Usuń pole tekstowe

To makro VBA usunie pierwszy TextBox w aktywnym dokumencie:

Sub DeleteTextBox() 'usuwa pierwsze pole tekstowe w activedoc 'nie straithforward, ponieważ nie jest łatwo zidentyfikować pola tekstowe Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then dla każdego oShape w ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' musimy sprawdzić, czy oShape jest typu msoShapeRectangle i czy jego ramka tekstowa zawiera miejsce na zapis If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub

Napisz w polu tekstowym

To makro programu Word używa podobnej metodologii do zapisywania w pierwszym polu tekstowym aktywnego dokumentu:

Sub WriteInTextBox() 'wpisuje do pierwszego pola tekstowego w aktywnym dokumencie Dim oShape As Shape If ActiveDocument.Shapes.Count > 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then 'musimy sprawdzić oba, jeśli oShape ma wartość wpisz msoShapeRectangle, a jego ramka tekstowa zawiera miejsce do pisania If oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Wyjście Dla 'chcemy tylko pisać do pierwszego pola tekstowego End If End If Next oKształt End If End Sub