| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открытие документа в Word'e. [D7, XP]
AlexanderMS © (2007-10-14 18:20:00)Собираюсь 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.
Скажите, пожалуйста, что я не правильно делаю, и как нужно сделать правильно.
TSNamir@mail.ru (2007-10-15 08:26:00) [1]Вместо всяких V0, VBlank, VFalse лучше вставляй EmptyParam, и все заработает...
AlexanderMS (2007-10-14 19:54:00) [2]
> YurikGL © (14.10.07 19:24) [1]
Большое спасибо. Буду разбираться.
YurikGL (2007-10-14 19:24:00) [3]http://www.delphimaster.ru/articles/dbtoword/index.html
Здесь есть пример открытия файла из ворда.
| |
