Access: Word-Datei aus Access aufrufen ?

Computer: Software & Programmierung Datenbanken allgemein
1

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

2

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/

3

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

4

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

mfg Günter

5

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]

6

Vielen Dank Reihhard,

auf Dich ist immer wieder Verlass!

Gruesse

Franz Englbrecht