Hallo,
in meinem Projekt werden Daten in Wordvorlagen übertragen und gedruckt. Ich muss also eien Verweis auf die Object Library eintragen. Da das Programm sowohl mit Office 9.0 als auch mit 10 laufen soll, habe ich den Code entsprechend mit Auswahl versehen:
'falls Word bereits läuft
If Left(Application.Version, 1) = 1 Then Set WordObj = GetObject(, "word.application.10")
If Left(Application.Version, 1) = 9 Then Set WordObj = GetObject(, "word.application.9")
If Err.Number = 429 Then
'falls Word noch nicht läuft
If Left(Application.Version, 1) = 1 Then Set WordObj = CreateObject("word.application.10")
If Left(Application.Version, 1) = 9 Then Set WordObj = CreateObject("word.application.9")
Err.Number = 0
End If
Das funktioniert prima. Probleme habe ich jedoch mit dem eingetragenen Verweis. Wurde das Programm zuletzt unter 9.0 gespeichert läuft es trotzdem unter 10. Rückwärts funktioniert das leider nicht. Da gibt es eine Fehlermeldung, weil der Verweis nicht funktioniert. Erst wenn das entsprechen Häkchen bei 9 gemacht ist, läuft der Code. Kann man das über VBA abfangen? Wer kann helfen?
Thomas