Как правильно завершить сохранение Документа Word

← →
Alex7 © (2007-06-01 14:42) [0]

Судя по всему вопрос слишком простой. Так что на него за последние полчаса нашел много ответов типа "эти вопросы не рассматриваем, т.к. они неоднократно обсуждались"
Дайте, пожалуйста ссылку.
Конректно по проблеме:
Открываю шаблон, модифицирую его и сохраняю под другим именем.
Вот и все. Тут же проверяю его FileExists - не находит. Хотя визуально вижу его. FileExists начинает видеть его только после того как, его открываю и закрываю самим Вордом или после перезагрузки компа.
Procedure …
var
vr1,vr2,vr3: OleVariant;
begin
If FileExists(ExtractFileDir(Application.ExeName)+ ‘Shablon.doc") then begin
WA.Free;
WA:=TWordApplication.Create(MainForm);
vr1 := ExtractFileDir(Application.ExeName)+ ‘Shablon.doc";
vr2 := ExtractFileDir(Application.ExeName)+’\DirOther\’;
vr3 := ‘OtherDoc.doc’;

try
WA.Connect;
WA.Documents.Open(vr1,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,vr4,EmptyParam,EmptyParam,vr3,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam);

WA.модификация;

WA.ChangeFileOpenDirectory(vr2);
WA.ActiveDocument.SaveAs(vr3, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

finally
WA.Disconnect;
WA.Free;
end;

if not FileExists(vr2+vr3)) then ShowMessage("Да")
else ShowMessage("Нет");
end;
end;

← →
umbra © (2007-06-01 14:57) [1]

уберите try .. finally и посмотрите, где возникнет ошибка. До сохранения документа дело просто не доходит.

← →
clickmaker © (2007-06-01 14:58) [2]

может
FileExists(vr2 + "\" + vr3)) ?
и почему бы сразу не указывать полный путь в vr3?

← →
Alex7 © (2007-06-01 15:02) [3]

Спасибо за внимание.
Ошибки никакой не возбуждается.
Сейчас увидел, что процесс WINWORD.EXE после испонения процедуры не завершается, продолжает висеть.

← →
umbra © (2007-06-01 15:03) [4]

> WA.ChangeFileOpenDirectory(vr2);

как Вы думаете, что происходит при выполнении этого метода?

← →
Alex7 © (2007-06-01 15:06) [5]

Полагаю меняется рабочая директория Ворда. Нужно в эту, другую директорию сохранять файл.

← →
clickmaker © (2007-06-01 15:06) [6]

> процесс WINWORD.EXE после испонения процедуры не завершается,
> продолжает висеть

WA.Quit()

← →
clickmaker © (2007-06-01 15:07) [7]

> [5] Alex7 © (01.06.07 15:06)
> Полагаю меняется рабочая директория Ворда. Нужно в эту,
> другую директорию сохранять файл.

так а принципиально не хочется полный путь указывать? Надо именно трансректально это делать?

← →
umbra © (2007-06-01 15:14) [8]

> Полагаю меняется рабочая директория Ворда. Нужно в эту,
> другую директорию сохранять файл.

меняется директория, которую видно в диалоге "открыть файл". Вы же ничего не открываете, а наоборот, сохраняете. Для этого есть св-во DefaultFilePath (подробности см. в справе по Word VBA).

← →
Alex7 © (2007-06-01 15:29) [9]

>clickmaker, >umbra
Спасибо. Сделал без открытия директории.

После WA.Quit Ворд выгрузился.

FileExists(vr2), где vr2, в отличие от вышеприведенного кода, полное имя файла-результата, по-прежнему не видит файла.

> FileExists(vr2), где vr2, в отличие от вышеприведенного
> кода, полное имя файла-результата, по-прежнему не видит
> файла.
>

потому, что его там нет. а есть он в папке документов по умолчанию, которую можно узнать, если посмотреть в меню ворда сервис\параметры, закладка "расположение".

> потому, что его там нет. а есть он в папке документов по
> умолчанию

и что, он туда попадет даже если указать полный путь в SaveAs?
Типа "все пути ведут в Рим"?

>umbra [10]
После выполнения кода вижу этот файл своими глазами в заданной директории. Но, все равно , спасибо за внимание.

Ошибка моя, логическая. Исправил.
После применения Ваших советов [2] , [6] , [7] все заработало.
Всем большое спасибо.

Как правильно завершить сохранение Документа Word Найти похожие ветки