Главная страница
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.022 c
1-1432
opoloXAI
2003-08-18 10:10
2003.09.01
RichEdit.Lines.Count > 460


1-1374
Cr@zy-EyE
2003-08-19 15:37
2003.09.01
Диалог выбора папки


1-1385
IgoX
2003-08-19 14:45
2003.09.01
xml


1-1406
^^^Dragon^^^
2003-08-15 23:23
2003.09.01
Ошибка


14-1657
AZ
2003-08-12 03:43
2003.09.01
Net BreAkeR у - Публичную экзекуцию!