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

Вниз

Снова Word   Найти похожие ветки 

← →
Doctor Deejay ©   (2003-08-16 01:00) [0]

Вопрос следующий: Есть прога, которая открывает ворд и пишет в него всякую лабуду. Затем форматирует и всё такое. Прикол в том, что если после запуска программы запустить какой-то файл(именно файл, а не сам ворд), то вместо обчного ворда его откроет ворд с кэпшоном, как у того, кот. породила моя программа. Суть в том, что прога после этого перестает видеть свой родной ворд.. Исходник инициализации могу бросить.
Может кто-то сталкивался с подобной проблемой.

---

← →
Doctor Deejay ©   (2003-08-16 16:43) [1]

Неужели никто не ответит? :(

---

← →
Spawn ©   (2003-08-16 16:48) [2]

ну закеж исходники)

---

← →
Doctor Deejay ©   (2003-08-16 19:02) [3]

{----------------- ОТКРЫТИЕ ВОРДА ---------------------}
procedure TForm1.wordstart;
begin
try
WApp.Connect;
WApp.Visible := False;
WApp.Caption := "My Word";
except showmessage("Невозможно запустить Word");
end;
end;
{------------------------------------------------------}

{--------- ОТКРЫТИЕ ВЫБРАННОГО ФАЙЛА ------------------}
procedure TForm1.openfile(var napravlenie:integer);
var
filename: olevariant;
beginpath:= extractfilepath(Application.ExeName)+"file.doc";

try
WApp.Documents.Add(path,emptyparam, emptyparam, emptyparam);
except showmessage("файл "+ filename +" не найден");
end;

end;
{------------------------------------------------------}

{------ СОХРАНЕНИЕ ФАЙЛА И ЗАКРЫТИЕ ---------------------}
procedure TForm1.savefile;
var
SaveChanges: OleVariant;
begin
SaveChanges:=True;
try
WApp.ActiveDocument.SaveAs(path,emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam);
except end;
SaveChanges:=False;
WApp.ActiveDocument.Close(SaveChanges, emptyparam, emptyparam);
end;
{---------------------------------------------------}

{-------------------- ПЕЧАТЬ ТЕКСТА --------------------}
procedure TForm1.printtext(var txt:string; bold, size:integer);
begin
WApp.Selection.Font.Name:="Times New Roman";
WApp.Selection.Font.Bold:=bold;
WApp.Selection.Font.Size:=size;
WApp.Selection.TypeText(txt+#13);
end;
{-------------------------------------------------------}



---

← →
Spawn ©   (2003-08-16 19:21) [4]

Попробуй сделать так
var
Document:OleVariant;
....
Document:=WApp.Documents.Add(path,emptyparam, emptyparam, emptyparam);
И после этого используй Document для доступа к документу(Обьяви его как глобальную переменную)

---

← →
Doctor Deejay ©   (2003-08-17 00:18) [5]

Не WApp.Selection.Font.Bold:=bold; а Document.Selection.Font.Bold:=bold;
да?

---

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

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

Наверх

Память: 0.47 MB
Время: 0.02 c