Word.Application

[NIK2604]

Доброго времени суток!!!
У меня возникла небольшая проблема с сохранением документа Word из моей программы.
Использую OleObject.
Прописываю команду SaveAs(Имя файла). Программа выдает ошибку "Вызов отклонен".
Перепробовал все. Подскажите, в чем проблема?

P.S. И еще один маленький нюанс, при создании документа выходит уведомление "Неверно указана единица измерения". Это можно как то убрать?

[Stilet]

ИМХО если пишет что вызов отклонен значит Ворд чем-то занят. Например ждет от пользователя какого-то ввода. Возможно шаблон кривоват...
Так сразу не скажешь.

[NIK2604]

Я не беру шаблон, просто открываю документ, добавляют текст и пытаюсь сохранить в другом месте и под другим именем.

[ych_del]

Код глянуть можно?

[NIK2604]

Конечно можно...
------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
WApp,TemDoc: Variant;
n: integer;
begin
WApp:=CreateOleObject('Word.Applica tion');
WApp.Documents.Open('D:\eNIKmatic\П рограммирование\TrainInspector\Расп исание\TrainTemplate.docx');
WApp.Selection.TypeText('Заголовок' );
WApp.Selection.TypeParagraph;
WApp.Selection.TypeText('Подзаголов ок');
WApp.Selection.TypeParagraph;
WApp.Selection.TypeParagraph;
for n:=1 to 15 do begin
WApp.Selection.TypeText('Строка №'+IntToStr(n)+#9+'00:00'+#9+'00 '+#9+'00:00'+#9+'00'+#13);
end;
WApp.Visible:=true;
TemDoc:=WApp.ActiveDocument;
TemDoc.SaveAs('D:\eNIKmatic\Програм мирование\TrainInspector\Расписание \РТИЩЕВО\9.docx');
WApp.Documents.Close;
WApp.Quit;
WApp:=UnAssigned;
end;
------------------------------------------------------------

[ych_del]

Проверил у себя и был крайне изумлен тем, что рабочий и проверенный (на работе) код дома работать отказывается. Рассказываю.

1. Для начала сразу после CreateOleObject пишем WApp.Visible := True; (ну, чтобы постоянно не лазать в диспетчер задач и не снимать лишние процессы).

2. После того, как Word становится видимым - видим то самое прекрасное "Неверно указана единица измерения" (именно из-за этого MessageBox'а у тебя и появлялось "Вызов был отклонен" - как верно заметил Stilet - Word от тебя ожидал реакции).

3. Проводя дальнейшие бесчеловечные эксперименты, можно увидеть данное сообщение даже вот так:
===========
W := CreateOleObject('Word.Application') ;
W.Visible := True;
W.DisplayAlerts := 0;
exit;
===========
Даже безо всяких открытий документов, не говоря об их сохранении.

4. Становится безумно интересно, задаем вопрос всезнающему гуглу, и он нам советует странное: запустить Word руками, с панели "Форматирование" убрать кнопку "Междустрочный интервал", закрыть Word, и дальше всё наладится.
Очень сильное колдунство, но - работает.

Когда-нибудь, как время будет, попробую забороть это (:

[ych_del]

Продолжение разговора - убираем кнопку самостоятельно, из своей программы, без плясок вокруг всех компов, где будем запускать прогу:

http://www.ych-group.ru/232/1166/#continue