Главная страница
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.017 c
15-1191760798
Andy BitOff
2007-10-07 16:39
2007.11.04
Блин!!! Как бороться?


2-1192321828
dreamse
2007-10-14 04:30
2007.11.04
Подскажите как получить название каталога из пути ?


15-1191601160
Джо
2007-10-05 20:19
2007.11.04
Указатели на структуры как аргументы функций (C++)


2-1192082670
Jimmy
2007-10-11 10:04
2007.11.04
Размер оперативной памяти


3-1182663843
celeron
2007-06-24 09:44
2007.11.04
Чтение типа Binary из MS SQL Server 2000