Word aus Access öffnen

Computer: Software & Programmierung Visual Basic
#1

Hallo allerseits,

ich habe ein Problem bei dem ich absolut nimmer weiter weiß.
Ich befülle ein Word Dokument automatisch aus Access.

Dim path As String
path = filepath.Value 'Pfad wird im Access Formular eingetragen
Set wrdDoc = wrdApp.Documents.Open(path)
Dim docActive As Document
Set docActive = wrdApp.Documents(1)
ActiveDocument.Tables(1).Cell(1, 2).Range.Text = TriggerDate.Value 'Datum wird aus Acces in das Word Dokument übertragen

Diese Funktion funktioniert auf meinem Rechner vollständig, d.h. das von mir eingegebene Word Dokument (inkl. Pfad) wird geöffnet und in die Zelle „1,2“ wird ein Datum aus dem Formular eingetragen.

Bei allen anderen Mitarbeitern funktioniert das ganze aber nur halbwegs.
Die gewünschte Datei wird ebenfalls geöffnet aber das Datum wird nicht in das Word Dokument übertragen. Woran könnte dies liegen? Warum funktionerts nur auf meinem Rechner?

Vielen Dank für eure Hilfe!

Grüsse aus München
Johanna

#2

Hi Johanna,

zeige mal die komplette Sub.
Welche Office-Versionen sind im Spiel.
Kommen Fehlermeldungen, wenn ja in welcher Zeile.
Warum definierst du docActive und benutzt danach ActiveDocument.
Überprüfe mal auf allen Rechnern das was unter Extras–Verweise steht.
Lade mal eine kleine beispieldatei hoch, bei http://www.hostarea.de o.ä.

Gruß
Reinhard

Dim path As String
path = filepath.Value 'Pfad wird im Access Formular
eingetragen
Set wrdDoc = wrdApp.Documents.Open(path)
Dim docActive As Document
Set docActive = wrdApp.Documents(1)
ActiveDocument.Tables(1).Cell(1, 2).Range.Text =
TriggerDate.Value 'Datum wird aus Acces in das Word Dokument
übertragen

Diese Funktion funktioniert auf meinem Rechner vollständig,
d.h. das von mir eingegebene Word Dokument (inkl. Pfad) wird
geöffnet und in die Zelle „1,2“ wird ein Datum aus dem
Formular eingetragen.

Bei allen anderen Mitarbeitern funktioniert das ganze aber nur
halbwegs.
Die gewünschte Datei wird ebenfalls geöffnet aber das Datum
wird nicht in das Word Dokument übertragen. Woran könnte dies
liegen? Warum funktionerts nur auf meinem Rechner?

#3

Hallo Reinhard,
danke für deine Tipps, habe alles überprüft!
Irgendwie hat er bei den anderen Usern das ActiveDocument nicht „geschluckt“
Habe jetzt statt
ActiveDocument.Tables(1).Cell(1, 2).Range.Text =TriggerDate.Value
wrdApp.Documents(1).Tables(1).Cell(1, 2).Range.Text = TriggerDate.Value
Und jetzt funktionierts.

Warum, weiss ich nicht…

Grüssle
Johanna

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo, Johanna!

Habe jetzt statt
ActiveDocument.Tables(1).Cell(1, 2).Range.Text
=TriggerDate.Value
wrdApp.Documents(1).Tables(1).Cell(1, 2).Range.Text =
TriggerDate.Value
Und jetzt funktionierts.

Das solltest Du immer verwenden. Mit „ActiveXXX“ kommst Du schnell in Teufels Küche, egal ob unter Word oder Excel oder sonst wo. Du musst nämlich sicher sein, dass das Objekt, mit dem Du spielen möchtest, auch wirklich aktiv ist. Und das hieße, Du müsstest ggf. immer ein „.Activate“ ausführen. Und um’s einfacher zu machen, kann es sein, dass auch mal ein „.Select“ nötig ist… Aber warum soll man Word oder Excel damit beschäftigen, irgendwelche Objekte hin und her zu aktivieren? Kostet nur Zeit (und das bei defaultmäßig aktiver Bildschirmaktualisierung nicht eben wenig!).

Du solltest ggf. auch mit wrdApp.Documents(1) vorsichtig sein. Wenn Du das Word-Applikations-Objekt neu erzeugen lässt und dann nur ein Dokument öffnest, wird das funktionieren. Aber auch hier muss sicher gestellt sein, dass nicht vorher schon ein anderes geöffnet ist oder wird. Lieber mit wrdApp.Documents(„myDoc.doc“) zugreifen…

Warum, weiss ich nicht…

Siehe oben: Bei ActiveXXX weiß man nie wirklich sicher, was passiert, vor allem, wenn ein übereifriger User zwischendrin noch Übungen mit seiner Maus macht…

Gruß, Manfred