Ich habe jetzt viel gelesen und recherchiert und natürlich auch alles mögliche ausprobiert. Leider schaffe ich es nicht aus Excel heraus Daten an ein Word Formularfeld zu übergeben. Ich hoffe irgendwer kann mir helfen. Es wird immer ein Fehler ausgeworfen, der besagt, dass der Name der TextBox nicht existiert. Ich habe ein Array angelegt, da ich etwa 10 TextBoxen in dem Word Dokument füllen möchte. Ich habe ein Test-Worddokument angelegt, mit nur einer TextBox. Das Dokument ist ohne Passwort geschützt. In arrTexte steht derzeit nur "Name" und in arrTextBoxen nur "TextBox21" (wird so in Word im Eigenschaftenfenster bei "Name" angezeigt. Der Pfad zum Dokument stimmt. Wenn ich mit TextMarken arbeite funktioniert der Code einwandfrei.
Unten mein Code (die Fehlerroutine hab ich abgeschnitten):
Sub DatenZuWord(arrTexte, arrTextBoxen)
Dim objWord As New Word.Application
Dim wdDoc As Word.Document
Dim objWordTextBox As Word.Bookmark
Dim intI As Long
Dim strVorlage As String
On Error GoTo Fehler
If UBound(arrTexte) UBound(arrTextBoxen) Then Err.Raise Number:=9
strVorlage = "M:\Dok1.docm"
If Dir(strVorlage) = "" Then Err.Raise Number:=5151
Set wdDoc = objWord.Documents.Add(Template:=strVorlage)
With wdDoc
.Application.WindowState = wdWindowStateMinimize
For intI = LBound(arrTexte) To UBound(arrTexte)
Set objWordTextBox = .Bookmarks(arrTextBoxen(intI))
objWordTextBox.Range.Text = arrTexte(intI)
Resume01:
Next intI
End With
MsgBox "Daten wurden übertragen!"
objWord.Visible = True
Err.Clear
Ich hoffe jemand kann mir da helfen.