Hallo Domino-Forum,
nach der Umstellung von Notes 6.5 / Office 2003 auf Notes 8.5 / Office 2010 funktioniert eine Anwendung nicht mehr, die per OLE-Automation Daten aus einer Notes-Maske in ein Word-Dokument übernimmt.
Nach dem Erzeugen des Word-Objekts erscheint die Fehlermeldung "Automation object error" (in der Zeile, wo die Datei geöffnet werden soll).
Die Fehlermeldung bleibt aus, wenn ich nach der Erzeugung des Word-Objekts eine Pause einbaue - dann funktionierts wieder wunderbar.
Hat jemand schon ähnliche Erfahrungen gemacht?
Gibt es einen eleganteren Weg, als die Pause einzulegen? (Ich konnte keine Funktion wie z. B. Application.IsReady o. ä. finden)
Danke,
GerdH
Code
...
'Word öffnen und unter neuem Dateinamen speichern
Set wdApp = CreateObject("Word.Application")
If wdApp Is Nothing Then
MeMWord_createWordDocument = "Word-Objekt konnte nicht erstellt werden."
Exit Function
End If
Sleep 5 'Pause, sonst "Automation object error"
wdApp.Visible = True
wdApp.Documents.Open sWordPathVorlageDatei
Set wdDoc = wdApp.ActiveWindow.Document
'Felder im Word-Dokument setzen
wdDoc.Fields.Item(1).Result.text = sVNAnrede
wdDoc.Fields.Item(2).Result.text = sVNName
wdDoc.Fields.Item(3).Result.text = sVNStrasse
wdDoc.Fields.Item(4).Result.text = sVNOrt
...