Скачать: CL | DM;

Открытие документа в 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, и все заработает...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c