Office: (Office 2010) Probleme mit Öffnen einer Worddatei

Morgen,

ich habe schon in acc2003 mit der Klasse clsWord gearbeitet um Werte aus Access an Word-Textmarken zu übergeben.

Seit Acc2010 bekomme ich manchmal einen Laufzeitfehler beim Aufruf der Worddatei.

Laufzeitfehler 4248
Dieser Befehl ist nicht verfügbar, weil kein Dokument geöffnet ist

Der Debugger markiert folgende Zeile
objWord.OpenDoc "w:\wdArbeitsgruppen\seminar\Vorbereitung\Vorbereitung_seminar.dotx", True

Der Wordprozess wird zwar gestartet, aber er findet die dotx Datei nicht, so wie ich das sehe, welche aber vorhanden ist. Ich muss dann erst den Prozess wieder entfernen und dann beim nächsten mal funktioniert es wieder. Und irgendwann beginnt das Spiel von neuem. Mal geht es, mal nicht.

Hier ist der Scirptcode

Code:

An der Klasse selbst habe ich überhaupt nichts verändert.

Hat jemand eine Ahnung, was da passiert?

:)

 

Hallo,

das ist typisches Verhalten für eine "unsaubere" Programmierung im Zusammenhang mit externen Anwendungen wie Word oder Excel. Dabei ist mit "unsauber" gemeint, dass im Code auf Eigenschaften oder Methoden ohne expliziten Objektbezug verwiesen wird. Das funktioniert überraschenderweise, hat aber eben dieses merkwürdige Verhalten zur Folge.

Dir bleibt also nichts anderes übrig, als den Code sorgfältig dahingehend zu überprüfen...

 

Hallo Gundula,

objWord.OpenDoc ... Das ist offenbar eine lokale selbst geschriebene Procedure. Da kann man nur raten, was darin genau passiert. Da Du einen Vorlagennamen übergibst, wird vermutlich Documents.Add ausgeführt(?).

Es dürfte sich um ein Timing-Problem handeln. Manchmal ist Word noch mit seinen eigenen Startjobs beschäftigt, wenn bereits der nächste Befehl kommt. Millisekunden später wäre das dann Dokument verfügbar, aber im Moment gerade noch nicht.

Da könnten vor und nach der Zeile eingefügte Do Events helfen.

Hang loose, Hartwig

 

Hallo

erstmal vielen Dank für die Antworten *Smilie

Also diese Klasse stammt nicht von mir. Ich hänge das Script der Klasse an. Ich habe sie auch nie verändert. Höchsten die Funktion FindeProgramm habe ich eingefügt. Sie wird aber nicht verwendet. Von daher kann ich auch nicht sagen, ob es unsauber programmiert ist. Als sich sie zum ersten mal vor Jahren eingesetzt habe, wurde sie überall empfohlen.

Mein Script, was ich gepostet habe, ich einfach nur Bestandteil eines Events, welches ich mit Acc2003 und Word2003 sehr lange und ohne Probleme genutzt habe.

Ich wüsste jetzt auch nicht, wie oder was ich in dieser Klasse verändern könnte.

In der Klasse wird geschaut, ob ich eine Vorlage nehme oder nicht und entsprechend wird Add bzw. open ausgeführt. Das Timing-Problem hatte ich auch im Kopf. Wenn Word einmal gestartet ist, läuft es ohne Probleme.

Was meinst Du mit Do Events?

 

Hallo Gudula,

dann solltest du vielleicht erstmal deinen eigenen Code vollständig zeigen. *wink.gif*

 

Hi

hier ist mein Code

Code:

 

Hi,

sorry, aber ich kann nichts entdecken, was meine Vermutung bestätigen könnte. *confused.gif*
Ist das wirklich der komplette Code im Zusammenhang mit Word?

 

Hi,

ja, das ist der gesamte Code. Am Anfang des Moduls habe ich noch die Datenbankvariablen, aber da dürfte es nicht dran liegen.

Ansonsten die clsWord Klasse, den Code hatte ich in meinem vorherigen Posting als Anhang gepostet. Beim 1. Case habe ich den Pfad in einer globalen Variablen gespeichert. Aber das macht keinen Unterschied.

 

Hallo Gudula,

die Methode OpenDoc verwendeten Klasse clsWord hat keine Fehlerbehandlung. Dies hat zur Folge, dass ein Fehler, der in der Methode OpenDoc der Klasse auftritt, an die aufrufende Methode weitergeleitet wird.

Mein Vorschlag: Füg mal eine Fehlerbehandlung in den Code ein oder stell übergangsweise im VBA-Editor unter Extras / Optionen /Allgemein / Unterbrechen bei Fehlern den Wert Bei jedem Fehler ein. Access sollte beim nächsten Fehler dieser Art stoppen und im Klassenmodul die Zeile markieren, die zum Fehler führt.

HTH

 

Ich hoffe, ich habe das jetzt richtig gemacht.

Code:

Der Fehler kam dann direkt in dieser Zeile
Set objWord = GetObject(, WORD_INITSTRING)

Code:

Laufzeitfehler 429
Objekterstellung durch ActiveX-Komponente nicht möglich

 

Das ist völlig OK und quasi mit eingeplant, nicht umsonst wird direkt davor die Fehlerbehandlung deaktiviert und
anschließend wieder eingeschaltet.
Teste den Code von der Stelle ab im Unterbrechungsmodus (mit F8) und schau was sonst noch passiert.

PS:
Du bist aber ganz schön mutig, fremden Code einzusetzen, ohne ihn nicht wenigstens ansatzweise zu verstehen... *biggrin.gif*

 

Hallo Gudula,

bei Early Binding kommt es bei Versionsumstellungen hin und wieder zu Komplikationen. Hast Du geprüft, ob die Verweise auf die Bibliotheken korrekt sind? Laufen ggf. mehrere Office-Versionen parallel auf dem System?

Ggf. könnte es helfen, auf Late Binding umzustellen (was ich grundsätzlich bevorzugen würde).

Grüße
EarlFred

 

Naja, so ganz von Dummsdorf bin ich nicht, auch wenn es manchmal so aussieht.*biggrin.gif* Ich verstehe die Zusammenhänge schon etwas, natürlich nicht so wie ihr. Bin halt kein Profi, zumindest nicht im Access-Bereich. *tongue.gif* Ich arbeite in diesen Prozeduren wirklich nur alle Jubeljahre mal. Da ist es schnell hin mit Routine, so ist das halt.

Als ich damals nach einem passenden Script gesucht habe, wurde von allen Seiten diese Klasse empfohlen, ich habe es probiert und es funktionerte wunderbar, bis halt zur Umstellung auf Acc2010.

 

nochmals vielen Dank für die Antworten.

Ich habe die clsKlasse verworfen. Für meine kleinen Formblätter reicht ein einfaches Word-Bookmarkscript.

 

Hallo Gundula,

Kleine Erweiterung in Deinem Code. Etwa so:

Set objWord = New clsWord
Do Events
objWord.OpenDoc "w:\wdArbeitsgruppen\seminar\Vorbereitung\Vorbereitung_seminar.dotx", True
Do Events

Wenn das nicht hilft, dann in der clsWord.OpenDoc ein Do Events einfügen unmittelbar vor der Zeile Set objRange = objWord.ActiveDocument.Range

Hang loose, Hartwig