Option Explicit
 
Private Sub TextfeldNeu()
    Dim Text As String
    Dim xPos As Single
    Dim yPos As Single
    Dim TFeld As Shape
    Text = InputBox("Text eingeben:", "Assistent 1 von 3 ...")
    xPos = InputBox("X-Position für Textfeld eingeben:", "Assistent 2 von 3" & _
      "...")
    yPos = InputBox("Y-Position für Textfeld eingeben:", "Assistent 3 von 3" & _
    "...")
    Set TFeld = ActiveDocument.Shapes.AddTextbox( _
    Orientation:=msoTextOrientationHorizontal, _
    Left:=xPos, Top:=yPos, Width:=100, Height:=20)
    TFeld.TextFrame.TextRange = Text
End Sub

MfG CDPeter
-------------------------------------------------------
... Computer sind auch nur Menschen ...