Открытие документа в Word e.

← →
AlexanderMS © (2007-10-14 18:20) [0]

Собираюсь c помощью программы открыть файл в Microsoft Word. Вот фрагмент функции:

V0 := 0; VBlank := ""; VFalse := false; try WA := TWordApplication.Create(nil); WA.Connect; Visible := WA.Visible; WA.Visible := true; Path := ""; for N := Length(FileName) downto 1 do if (FileName[N] = "\") or (FileName[N] = "/") then begin Path := Copy(FileName, 1, N); FileName := Copy(FileName, N + 1, MaxInt); break end; VString := Path; WA.ChangeFileOpenDirectory(VString); VString := FileName; W := WA.Documents.Open(VString, VFalse, VFalse, VFalse, VBlank, VBlank, VFalse, VBlank, VBlank, V0, V0, VFalse, VFalse, V0, VFalse, VBlank);

(параметры на "V" - OleVariant).

При выполнении последней команды: "Ошибка на сервере".

Макрос в Word"е:

ChangeFileOpenDirectory "С:\" Documents.Open FileName:="aaa.doc", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto, XMLTransform:=""

Число параметров различное. Думаю, может быть, поэтому ошибка? Нужного варианта функции Open в Word_TLB.pas нет. У меня Word 2003.
Скажите, пожалуйста, что я не правильно делаю, и как нужно сделать правильно.

← →
YurikGL © (2007-10-14 19:24) [1]

http://www.delphimaster.ru/articles/dbtoword/index.html
Здесь есть пример открытия файла из ворда.

← →
AlexanderMS © (2007-10-14 19:54) [2]

> YurikGL © (14.10.07 19:24) [1]

Большое спасибо. Буду разбираться.

← →
TSNamir@mail.ru (2007-10-15 08:26) [3]

Вместо всяких V0, VBlank, VFalse лучше вставляй EmptyParam, и все заработает...

Открытие документа в Word e. Найти похожие ветки