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/