Private Sub Command1_Click()
  Dim Word As Application
 
  If Word Is Nothing Then
    Set Word = CreateObject("Word.Application") 
  Else
    Set Word = GetObject(, "Word.Application")   
  End If
 
  If Word Is Nothing Then
    MsgBox "...konnte keine Verbindung zu Word herstellen!", 16, "Problem..."
    Exit Sub
  End If
 
  Word.ChangeFileOpenDirectory "<hier der pfad zur vorlage>"
  Word.Documents.Open FileName:="<name der vorlage>", ConfirmConversions:= _
      False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
      PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
      WritePasswordTemplate:="", Format:=wdOpenFormatAuto
  Word.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
  Word.ActiveDocument.MailMerge.OpenDataSource Name:= _
      "<pfad der datenbank>", _
      ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
      AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
      WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
      Format:=wdOpenFormatAuto, Connection:="TABLE <tabellenname>", _
      SQLStatement:= _
      "SELECT * FROM <tabellennamen>", SQLStatement1:=""
  Word.Visible = True
End Sub

cu puppet

Wer ?berall seinen Senf dazu gibt, kommt schnell in den Verdacht ein W?rstchen zu sein!