[NewCoder]

При переходе с 2003 офиса на 2010 экспорт в word работает, но раньше документ сразу же распечатывался, а сейчас он попадает в Microsoft OneNote. Код представлен для 2003:

Код:

begin
try
 ChisloD:=DateToStr(Now);
 WordApp:=CreateOleObject('Word.Application');
 doc:=WordApp.Documents.open(ExtractFilePath(Form1.Flog)+'Shablon PasportK.doc'); 

 WordApp.Selection.GoTo(-1,,,'Host');//переход к закладке
 WordApp.Selection.TypeText(TreeView1.Selected.Text);//вставляем то, что нам надо
 WordApp.Selection.GoTo(-1,,,'Inv');//переход к закладке
 WordApp.Selection.TypeText(Edit3.Text);//вставляем то, что нам надо

 for i:=0 to ListBox2.Count - 1 do
  BEGIN
   doc.Tables.Item(1).Rows.Add(EmptyParam); //добавляем строку в таблицу
   doc.Tables.Item(1).Cell(2+i,1).Range.Text:=IntToStr(i+1);
   doc.Tables.Item(1).Cell(2+i,2).Range.Text:=ListBox2.Items[i];

  END;

 WordApp.Selection.GoTo(-1,,,'FIOu');//переход к закладке
 WordApp.Selection.TypeText(ComboBox3.Items[ComboBox3.ItemIndex]);//
 WordApp.Selection.GoTo(-1,,,'FIOp');//переход к закладке
 WordApp.Selection.TypeText(Edit2.Text);//
 WordApp.Selection.GoTo(-1,,,'Date');//переход к закладке
 WordApp.Selection.TypeText(ChisloD);//вставляем то, что нам надо

 Doc.PrintOut;
 WordApp.ActiveDocument.SaveAs('vremf.doc');
 WordApp.quit;
 DeleteFile('vremf.doc');
except
end;

Я конечно поменял расширение везде, файл шаблона пересохранил в 2010, но...