Gefilterte Accessdatensätze in Word einlesen

[Woahii]

Hallo.

Meine Frage ist: Wie kann man einen Button in einem Formular Programmieren also welchen Code brauche ich um in einem Formular gefilterte Datensätze in ein Worddokument und auch ggf. in ein Textdokument einzulesen.

Wäre das vielleicht ein Code dafür?

Dim objWord As Word.Application

Set objWord = CreateObject("Word.Application")

With objWord
.Visible = True

.Documents.Open ("C:\temp\test.doc") 'das zu öffnende Worddokument

.ActiveDocument.Bookmarks("Anrede").Select 'gehe zur Textmarke "Anrede"
.Selection.text = Me!Anrede 'schreibe in das Feld, was im Formular im Feld Anrede steht
.ActiveDocument.Bookmarks("NName").Select
.Selection.text = Me!NName
'usw...

End With

objWord.ActiveDocument.PrintOut 'ausdrucken

objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 'nicht speichern

objWord.Quit
Set objWord = Nothing

Ich wäre für gute Tipps dankbar.

 

[tombe]

Ich weiß ja nicht was du da "programmieren" willst, aber wäre nicht die einfachste Lösung die, das du in WORD einen Serienbrief erstellst. Bei dieser Abfrage die du dann an die Datenbank stellst, kannst du die entsprechenden Bedningungen angeben.

Gruß Thomas