Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
ВнизОткрытие документа в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c