Access: Word-Datei aus Access aufrufen ?

Hallo,

wie kann ich aus Access heraus die Serien-Worddatei „Test.doc“ aufrufen, die mit der Tabelle tblFilter verknüpft ist?

Pfad für das Access-Program: C:\Eigenen Dateien\Test\Test.mdb
Pfad für die Word-Datei: C:\Eigene Dateien\Test\Test.doc

Problem: Wenn ich die Datei aus Word aufrufe und Test.mdb schon gestartet ist wird Test.mdb ein zweites Mal gestartet !!!

Danke für die Hinweise!

Gruesse

Franz Englbrecht

hallo Franz,

so ungefähr ist schon mal ein Anfang da:

Sub AccessFernsteuerung()

Set Word97 = CreateObject(„Word.Application“)
Word97.Application.Visible = True

Word97.Documents.Add

Word97.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
Word97.ActiveDocument.MailMerge.OpenDataSource Name:=„C:\Eigene Dateien\test\test.mdb“, _
Connection:=„TABLE tblFilter“, SQLStatement:= _
„SELECT * FROM [tblFilter]“
Word97.ActiveDocument.MailMerge.EditMainDocument
Word97.ActiveDocument.MailMerge.Fields.Add Range:=Word97.Selection.Range, _
Name:=„Ansprechpartner“
Word97.Selection.TypeParagraph
Word97.ActiveDocument.MailMerge.Fields.Add Range:=Word97.Selection.Range, _
Name:=„Adresse1“
Word97.Selection.TypeParagraph
Word97.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

End Sub

Mit dem mehrfachen Öffnen ist es immer so eine Sache, ich hab da auch nochj keine vernünftige Lösung finden können.

http://mypage.bluewin.ch/reprobst/Abhandlungen/OA.htm

Hier solltest du auch mal nachlesen.

mfg Günter
http://www.vbe-home.de/

Das mit dem mehrfachen Öffnen geht so:

Dim Tmp, WordObj As Object 'Word.Application
 On Error Resume Next
 Set WordObj = GetObject(, "Word.Application ")
 If Err.Number 0 Then Set WordObj = CreateObject("Word.Application")
 On Error GoTo 0
 With WordObj
 .Application.Visible = True
'...

… für den Rest hast du ja schon einen Tipp bekommen

Reinhard

bleibt immer noch das Problem…
dass beim Verbinden Access gleich noch ein zweites mal aufgerissen wird.

mfg Günter

Hallo Günter,

danke für Deine Tipps. Bei mir dauert das manchmal etwas bis ich sie umgesetzt habe!
Sie haben mir weitergeholfen.

Gruesse

Franz

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

Vielen Dank Reihhard,

auf Dich ist immer wieder Verlass!

Gruesse

Franz Englbrecht