Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.04;
Скачать: 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 вся ветка

Текущий архив: 2007.11.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
15-1191393493
Lex_!
2007-10-03 10:38
2007.11.04
Использование .NET 3.x


2-1191920499
r.o.o.t
2007-10-09 13:01
2007.11.04
Закрытие формы


15-1191309392
AndrewK
2007-10-02 11:16
2007.11.04
Затрудняюсь с выбором. Подскажите, плиз.


15-1190321077
Суслик
2007-09-21 00:44
2007.11.04
VirtualPC and Other


1-1187636613
EHOT
2007-08-20 23:03
2007.11.04
Master Boot Record