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