![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открытие word овского файла... [D6, Win95/98]
XPatriot() © (2002-10-10 12:47:00)Как открыть из Delphi вордовсий файл, и фторой вопрос у меня есть StringGrid, допустим один из элементов находится вне зоны видимости, как сделать так чтоб он стал видимым, и выделился нужным цветом.
Зарание спасибо.
Opuhshii (2002-10-10 13:59:00) [1]В FAQe
XPatriot() (2002-10-10 13:56:00) [2]Ты не мог бы поподробний про OLE(как начать работу)? Зарание спасибо...
MetalFan (2002-10-10 13:49:00) [3]Я С ВОРДОМ РАБОТАЮ ЧЕРЕЗ ОЛЕ.
...
VAR
MSWORD:VARINAT;
begin
try
MSWORD:=GetActiveOleObject("Word.Basic");//пытаемся "подцепить" запущенный ворд
try MSWORD.FileCloseAll(1);except end;//закрываем все открытые доки с сохранением
except
MSWORD:=CreateOleObject("Word.Basic");//нету запушенного? тогда запускаем.
end;
Shablon:=ExtractFilePath(Application.EXEName)+"шаблон.DOC";
MSWORD.AppHide;//прячем ворд
MSWORD.FileOpen(Name:=Shablon,revert:=True);//цепляем шаблон
MSWORD.EditBookMark(Name:="bm1",GoTo:=1);MSWORD.Insert("something"); //идем на закладку и вставляем строку.
MSWORD.ToolsProtectDocument("Пароль",0,2); //зашишяем файл от изменения с паролем
ActiveFile:=ExtractFilePath(Application.EXEName)+"РЕЗУЛТАТ.DOC";
MSWORD.FileSaveAs(Name:=ActiveFile);//СОХРАНЯЕМ
MSWORD.AppShow; //ПОКАЗЫВАЕМ ЮЗЕРУ
MSWORD:=UnAssigned; //освомбождаем
вот так примерно я работаю с вордом
работало с 97 и 2000 вордом,
под виндами 98/2000.
Удачи!!!
- (2002-10-10 13:37:00) [4]-
XPatriot() (2002-10-10 13:36:00) [5]Мне нужно как можно легче, и чтоб это работало на любом компе...
andrey_pst (2002-10-10 12:53:00) [6]c:\program files\borland\delphi5\demos\Activex\...
Duce (2002-10-10 12:52:00) [7]В директории Delphi/OCX/Word*.pas - это классы и дефиниции для работы с Word и прочими офисными ...
AndreyAG (2002-10-10 12:50:00) [8]Есть два варианта.
Первый работа через OLE
Второй через интерфейсы
Что тебя интересует?