word Format Dokument Steuern Datenbank Code Access Datenbank

Seriendruck per VBA

hallo Board,

ich versuche gerade, einen Brief (.dot) mit definierten Seriendruckfeldern von Access aus aufzurufen, dann mit der Accessdatenbank zu verknüpfen und letzendlich zu einem neuen Dokument zusammenzuführen.

Soweit so gut ....
Mein Problem besteht nun darin, dass ich sehr wohl von Access aus Word starten, die Datei aufrufen und neu speichern kann ...

Jetzt will ich aber auch versuchen den connect per VBA zu steuern (um das SQL-Statement abzuändern)

Da ich mich in VBA für Word leider überhaupt nicht auskenne, blieb mir bisher nur der Weg über denn Makrorekorder ...


Dieser Code steht bei mir in Access

Public Sub WordInit()
Dim objWord
On Error Resume Next
Set objWord = GetObject(, _
"Word.Application")
If Err.Number > 0 Then
On Error GoTo 0
Set objWord = _
CreateObject("Word.Application")
Else
objWord.Activate
End If
With objWord
.Visible = True
.Documents.Open FileName:=("C:\Documents and Settings\...\tipo2.dot")
.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
.ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\...\Aplicacion_Correspondencia.mdb" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="TABLE carta", SQLStatement:= _
"SELECT * FROM [carta]", SQLStatement1:="", SubType:=wdMergeSubTypeOther
.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
'hier würde ich in das SELECT Statement gerne eine WHERE Bedingung einfügen ... geht das?
End With
Set objWord = Nothing
End Sub