[Страдалецъ]

А понаписали-то... Собственно весь код будет примерно таким:

Код:

procedure TForm28.Button1Click(Sender: TObject);
Var
  WordApp: OLEVariant;
  i: Integer;
begin
 if not OpenDialog1.Execute then Exit;
 WordApp := CreateOleObject('Word.Application');
 WordApp.WordBasic.DisableAutoMacros;
 for i := 0 to OpenDialog1.Files.Count - 1
 do begin
    WordApp.Documents.Open(OpenDialog1.Files.Strings[i], ReadOnly := True);
    WordApp.ActiveDocument.PrintOut;
    WordApp.ActiveDocument.Close;
    end;
 WordApp.Quit;
 WordApp := Unassigned;
end;