06.08.2012, 11:04
|
Прохожий
|
|
Регистрация: 16.02.2012
Сообщения: 26
Репутация: 10
|
|
с 2003 офиса на 2010
При переходе с 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, но...
|