Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.021 c
14-1656
Васька
2003-08-12 17:04
2003.09.01
Изображения


1-1399
ASt
2003-08-16 01:38
2003.09.01
Много однотипных компонентов


3-1305
Olivka
2003-07-31 22:22
2003.09.01
Структура базы, хранение НДС , НСП и т.п.


4-1720
RIMMER
2003-06-28 00:27
2003.09.01
Горизонтальная прокрутка в ListBox


3-1278
andrey__
2003-08-11 11:59
2003.09.01
Уьеньшить объём log - файла