Excel OLEprocedure MSTest;
var    MsWord:Variant;
begin
      MSWord := CreateOleObject('Word.Application');
          FD := 'c:/test.doc';
          CopyFile(Pchar(FS),PChar(FD),False);
          MSWord.Documents.Open(FD);
          MSWord.Application.Visible := True;
    if MSWord.ActiveDocument.Bookmarks.Exists(l) then
    begin
      MsWord.ActiveDocument.Bookmarks.Item(l).Select;
      if d = '' then d := ' ';
      MsWord.Selection.TypeText(d);
    end;              MSWord.ActiveDocument.SaveAs(FD);
          if ComboBox2.Items.IndexOf(ComboBox2.Text) <> -1 then
            MSWord.ActivePrinter := ComboBox2.Text;                MSWord.ActiveDocument.PrintOut;
            MSWord.ActiveDocument.Close;
            MSWord.ActiveDocument.PrintPreview;
        MSWord.Quit;
end;