w.ActiveDocument.MailMerge.MainDocumentType := wdFormLetters;
    w.ActiveDocument.MailMerge.OpenDataSource(
      Name:=OutputDirEdit.Text+'\Quelle.doc',
      ConfirmConversions:=False,
      ReadOnly:=False,
      LinkToSource:=True,
      AddToRecentFiles:=False,
      PasswordDocument:='',
      PasswordTemplate:='',
      WritePasswordDocument:='',
      WritePasswordTemplate:='',
      Revert:=False,
      Format:=wdOpenFormatAuto,
      Connection:='',
      SQLStatement:='',
      SQLStatement1:=''
    );
    w.ActiveDocument.MailMerge.Destination := wdSendToNewDocument;
    w.ActiveDocument.MailMerge.MailAsAttachment := False;
    w.ActiveDocument.MailMerge.MailAddressFieldName := '';
    w.ActiveDocument.MailMerge.MailSubject := '';
    w.ActiveDocument.MailMerge.SuppressBlankLines := True;
    w.ActiveDocument.MailMerge.DataSource.FirstRecord := datensatzA;
    w.ActiveDocument.MailMerge.DataSource.LastRecord := datensatzE;
    w.ActiveDocument.MailMerge.Execute(Pause:=True);