работа с WORD

[Shaitan63]

Помогите пожалусто я некогда в delphi с word-ом не работал и мне нужно что бы при нажатии на кнопку открывался word. Дайте пожалусто код.
____________________________
Отличный сайт анимированных картинок + форум о компьютерах
Быстрые и лёгкие деньги
КАК ПОВЫСИТЬ тИЦ И Page Rank САЙТА И ПОЛУЧИТЬ 10 575 ПОСЕТИТЕЛЕЙ В ДЕНЬ Бесплатно!!!

[mihali4]

Ну, например:

uses 
comobj; 
...
var msword: olevariant; 
...
procedure TForm1.Button1Click(sender: tobject); 
begin 
try 
msword := createoleobject('word.application'); 
except 
ShowMessage('MSWord не найден!');
end; 
end;

А когда нужно будет (или по закрытию программы) - msword.quit;

И еще - поиском по форуму по слову WORD найдете много интересного...
Недавно я кому-то давал подборку статей по работе с офисом из Дельфи.

[Shaitan63]

Что-то неконнектит запускается а при нажатии некаких действий :-(.
Может быть я должен был что-то в корневой каталог с моей прогой сбросить или активировать?
____________________________
Отличный сайт анимированных картинок + форум о компьютерах
Быстрые и лёгкие деньги
КАК ПОВЫСИТЬ тИЦ И Page Rank САЙТА И ПОЛУЧИТЬ 10 575 ПОСЕТИТЕЛЕЙ В ДЕНЬ Бесплатно!!!

[mihali4]

Это уже ваши трудности - я на расстоянии лечить не могу, не Кашпировский.
Да, и настоятельно рекомендую убрать из подписи рекламу со ссылками, иначе в ближайшее время вас забанят...
У нас это не принято.

[LT.]

Shaitan63 если быть точным запускает, но визуально не отображает.

[mihali4]

Да-а-а... А догадаться дописать:
msword.Visible:=True;
религия не позволяет...
(Как велика у людей привычка к халяве - просто подсказать - этого им уже мало, им подавай готовый на 100% код, да с комментами, да еще и пиво им поставь, и шнурки погладь )

[Shaitan63]

Да всё ок спасибо, а если нет листа, то когда текст буду добавлять он появится?
И ещё последний вопрос, если на компе нет офиса а стоит опенофис, то файл будет запускаться, если нет что-то сможите посоветовать?

[mihali4]

Сообщение от Shaitan63

Да всё ок спасибо, а если нет листа, то когда текст буду добавлять он появится?

Вы можете открыть любой документ:

msword.documents.open(filename);

По поводу опенофиса ничего не могу сказать - не работал.
Но в любом случае вряд ли он прописан в реестре под именем "word.application", поэтому можно попробовать поискать в реестре, как он там называется и заменить в программе эту строку. А еще лучше вставить попытку открытия окна опенофиса в цикл exсept, но во вложенном, своем try..exсept перед строкой ShowMessage('MSWord не найден!');.
Тогда вначале у вас будет происходить попытка запуска ворда, а при неудаче - опенофиса.

[Dux]

О работе с Word немного информации можете почерпнуть здесь

[Shaitan63]

хорошо что-небуть придумаю спасибо