Office: (Office 2010) Word-Dokument öffnen

TaTiNi09 · 27. Mai 2015

Hallo zusammen,

ich muss aus Access heraus eine bestimmte Word-Datei öffnen. Dies mache ich mit folgendem Code:

Code:

Dim WWord As Application
Set WWord = CreateObject("Word.Application")
WWord.Documents.Open "C:\Users\o69225\access\dittrich\DVT Anträge.docx"
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code läuft an der Stelle .Documents.open in einen Fehler. Beanstandet wird der Begriff Documents.
Gibt es den nicht mehr? Unter Access 2003 habe ich den eigentlich immer so benutzt. Wir sind gerade erst auf Access 2010 umgestiegen. Muss ich das evtl. jetzt anders formulieren oder wo könnte an der Stelle der Fehler liegen?

Im voraus schon mal danke für die Hilfe.

Gruß
Tim

:)

avogt_at_home · 28. Mai 2015

Hallo,
geht so:

Code:

Dim oWordApp As Word.Application
Dim oWordDoc As Word.Document

Set oWordApp = CreateObject("Word.Application")
Set oWordDoc = oWordApp.Documents.Open FileName:="c:\test.doc"
oWordApp.Visible = True

Set oWordApp = Nothing
Set oWordDoc = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Andreas

TaTiNi09 · 28. Mai 2015

Schon mal vielen lieben Dank.

Jetzt bleibt die Prozedur bei FileName stehen und bringt die Meldung:
Fehler beim Kompilieren
Erwartet: Anweisungsende

Hier mein Code:
Code:

Dim oWordApp As Word.Application
Dim oWordDoc As Word.Document

Set oWordApp = CreateObject("Word.Application")
Set oWordDoc = oWordApp.Documents.Open FileName:="C:\Users\o69225\access\dittrich\DVT Anträge.docx"
oWordApp.Visible = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was fehlt denn da noch? Ich habe in der Hilfe geschaut, aber nichts gefunden...

Gruß
Tim

avogt_at_home · 28. Mai 2015

Sorry, fehlt natürlich die Klammer:
Set oWordDoc = oWordApp.Documents.Open(FileName:="c:\test.doc")
Und Verweis auf die Microsoft Word Object Library muss gesetzt sein.

Andreas

ios707 · 7. Januar 2021

von avogt_at_home

...

Und Verweis auf die Microsoft Word Object Library muss gesetzt sein.

Andreas
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt hast du es selbst ergänzt ... wollte das auch noch schreiben.

Das Beispiel von Andreas ist mit early binding, d.h. es benötigt die Word-Bibliothek bei den Verweisen. Mit late binding, also ohne den Verweis auf die Library müsste die Variablendeklaration einfach so lauten:
Code:

Dim oWordApp,oWordDoc As Object
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

TaTiNi09 · 28. Mai 2015

super, vielen vielen Dank!

Josef P. · 29. Mai 2015

Hallo!

Nur zu Info:
Code:

Set oWordDoc = CreateObject("c:\test.doc")
oWordDoc.Application.Visible = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sollte auch funktionieren und hat den Nebeneffekt, dass das Dokument nicht noch einmal geöffnet wird, falls es bereits offen ist.

Anm.: Falls die Datei nur geöffnet werden soll, aber keine Word-Referenz benötigt wird, könnte man auch Application.FollowHyperlink oder die Win-API ShellExecute verwenden.

mfg
Josef

Office: (Office 2010) Word-Dokument öffnen

Word-Dokument öffnen

Word-Dokument öffnen

Word-Dokument öffnen

Word-Dokument öffnen - Similar Threads - Word Dokument öffnen

Öffnen eines WordPerfect-Dokuments in Word

Öffnen eines Dokuments in einer früheren Version von Word

Verwenden von Word zum Öffnen oder Speichern eines Dokuments im OpenDocument-Textformat (ODT)

Nach der Installation von KB 4011730 können Sie Word-Dokumente möglicherweise nicht öffnen ...

Word Dokument über Excel-Userform im Vordergrund öffnen

Aus Excel heraus Word dokument öffnen und mit Variablen aus Excel füllen

Word-Dokumente in Entwurfansicht öffnen