1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  FileName, NewFile  : OleVariant; 
  Mail : MailMerge; 
  Pause     : OleVariant; 
begin 
  if OpenDialog1.Execute then 
    FileName:=OpenDialog1.FileName 
  else 
    exit; 
  NewFile:=ExtractFilePath(FileName)+'Brief.doc'; 
  WordApplication1.Connect; 
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam, 
                                     EmptyParam, EmptyParam, EmptyParam, 
                                     EmptyParam, EmptyParam, EmptyParam, 
                                     EmptyParam); 
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument); 
  WordApplication1.Visible:=True; 
  Pause:=True; 
  Mail:=WordDocument1.MailMerge; 
  Mail.Destination := wdSendToNewDocument; 
  Mail.Execute(Pause); 
  ShowMessage('Fertig'); 
  WordDocument1.Close; 
  WordDocument1.Disconnect; 
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument); 
  WordDocument1.SaveAs(newFile); 
  WordDocument1.Disconnect; 
  WordApplication1.Quit; 
  WordApplication1.Disconnect; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

procedure TForm1.Button1Click(Sender: TObject);
Var Filename:Olevariant;
    i:integer;
    bo_true,bo_false,i_range,i_item:OleVariant; //Hilfsvars
begin
  if OpenDialog1.execute then
    begin
      Filename := OpenDialog1.FileName;
      bo_true:=true;
      bo_false:=false;
      //prüfen, ob evtl schon Verbindung zu Word besteht, sonst verbinden
      //ins Formclose noch das Disconnect schreiben
      try
        i:=WordApplication1.Documents.Count;
      except
        WordApplication1.disconnect;
        WordApplication1.connect;
      end;
      //Dok aufrufen
      with WordDocument1 do
        begin
          connectto(WordApplication1.Documents.Open(filename,emptyparam,emptyparam,emptyparam,
                                                    emptyparam,emptyparam,emptyparam,emptyparam,
                                                    emptyparam,emptyparam));
          //begin Variante1
            MailMerge.Destination        := wdSendToPrinter;
            MailMerge.SuppressBlankLines := false;
            MailMerge.Execute(bo_true);
          //end Variante1
          //begin Variante 2
            MailMerge.Destination        := wdSendToNewDocument;
            MailMerge.SuppressBlankLines := false;
            MailMerge.Execute(bo_true);

            i_range:=wdPrintAllDocument;
            i_item := wdPrintDocumentContent;
            //das erstellte Dokument drucken undschließen
            WordApplication1.activeDocument.PrintOut(bo_true,Emptyparam,i_range,
                                                     Emptyparam,Emptyparam,Emptyparam,
                                                     i_item,emptyparam,emptyparam,
                                                     Emptyparam,Emptyparam,Emptyparam,
                                                     Emptyparam,Emptyparam);
            WordApplication1.ActiveDocument.close(bo_false,emptyparam,emptyparam); //savechanges=false
          //end Variante 2

          WordApplication1.ActiveDocument.close(bo_false,emptyparam,emptyparam); //savechanges=false
          Disconnect;
        end;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Word2000, OleServer, OleCtrls;

type
  TForm1 = class(TForm)
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, NewFile  : OleVariant;
  Mail : MailMerge;
  Pause     : OleVariant;

begin
  if OpenDialog1.Execute then
    FileName:=OpenDialog1.FileName
  else
    exit;
  NewFile := ExtractFilePath(FileName)+'Brief.doc';
  WordApplication1.Connect;
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam);

  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordApplication1.Visible := True;
  Pause := True;
  Mail := WordDocument1.MailMerge;
  Mail.Destination := wdSendToNewDocument;
  Mail.Execute(Pause);
  ShowMessage('Fertig');
  WordDocument1.Close;
  WordDocument1.Disconnect;
  //WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  //WordDocument1.SaveAs(newFile);
  //WordDocument1.Disconnect;
  //WordApplication1.Quit;
  //WordApplication1.Disconnect;
end;

end.