Excel & Word: Formfields füllen, Laufzeitfehler 59
29.12.2017 16:03:06
Mike
Ich bastel hier daran, mit Ergebnisdaten aus einer Excel-Tabelle die Wordvorlage einer Einzelprüfkarte für das Deutsche Sportabzeichen zu befüllen und habe dabei ein sehr merkwürdiges Phänomen:
Mit
Pfad = Application.ActiveWorkbook.Path
Datei = Pfad & "\EPK.doc"
Dim wordObj As Word.Application
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = True
wordObj.Documents.Open Datei
bekomme ich die Prüfkarte auch problemlos aus Excel heraus geöffnet. Wenn ich dann aber mit
wordObj.Selection.FormFields("Nachname").Result = Nachname
gleich das erste Feld mit Inhalt füllen möchte, dann bekomme ich die Fehlermeldung:
"Laufzeitfehler '5941': Das angeforderte Element ist nicht in der Sammlung vorhanden"
Ok, die Fehlermeldung ist eindeutig, er findet also das Formfield "Nachname" nicht. Aber jetzt wird es spannend:
Ich bin noch im Debug-Modus und lasse ich mir dann im geöffneten Worddokument die Eigenschaften des Felds "Nachname" nur anzeigen, ich ändere nichts! Wenn ich jetzt das Makro weiterlaufen lasse, dann meckert Excel nicht mehr und befüllt das Feld als wäre nie etwas gewesen! Und das passiert mit jedem Formfield...
So langsam bin ich echt ratlos, aber vielleicht hat ja hier jemand die zündende Idee...
Danke im Voraus und guten Rutsch,
Mike