??
wie willst du das machen.
Du filterst im Access nach einem bestimmten Datensatz und drückst dann im Access nen Knöpfchen und daraufhin sind die Daten im Word?
Dazu gibt es im Word: Textanker (glaub die heissen so)
Die kann man aus andern Applikationen ansprechen.
Ja und vba is das richtige dafür.
Also Word Formular erstellen, Bookmarks dort setzen wo die Texte hinsollen, dann den code im Access ausführen.
Der code
Private Sub Kaltaquise_Click()
On Error GoTo Err_Kaltaquise_Click
Dim Word As Word.Application
Set Word = CreateObject("Word.Application")
With Word
.Visible = True
.Documents.Open "I:\Kundendienst\Betreiberdatenbank\Kaltaquise.dot "
.ActiveDocument.Bookmarks("ANSCHRIFT_NAME").Select
.Selection.Text = Me!o_name1
.ActiveDocument.Bookmarks("ANSCHRIFT_STRASSE").Sel ect
.Selection.Text = Me!o_strasse
.ActiveDocument.Bookmarks("ANSCHRIFT_PLZ").Select
.Selection.Text = Me!o_plz
.ActiveDocument.Bookmarks("ANSCHRIFT_ORT").Select
.Selection.Text = Me!o_ort
.ActiveDocument.Bookmarks("ANSCHRIFT_FAX").Select
.Selection.Text = Me!o_person1_fax
.ActiveDocument.Bookmarks("TUERANLAGE").Select
.Selection.Text = Me!typ1
.ActiveDocument.Bookmarks("ANSCHRIFT_PROJEKT").Sel ect
.Selection.Text = Me!projekt
.ActiveDocument.Bookmarks("BV_NAME").Select
.Selection.Text = Me!o_name1
.ActiveDocument.Bookmarks("BV_STRASSE").Select
.Selection.Text = Me!o_strasse
.ActiveDocument.Bookmarks("BV_PLZ").Select
.Selection.Text = Me!o_plz
.ActiveDocument.Bookmarks("BV_ORT").Select
.Selection.Text = Me!o_ort
.ActiveDocument.Bookmarks("USER").Select
.Selection.Text = Me!AktuellerBenutzer()
End With
Exit_Kaltaquise_Click:
Exit Sub
Err_Kaltaquise_Click:
MsgBox Err.Description
Resume Exit_Kaltaquise_Click
End Sub