VPF::Как по нажатию кнопки открыть Word?

Vorona

Дата 3.1.2005, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 12.10.2004
Где: Украина, Днепропе тровск

Репутация: нет
Всего: 2

Вся суть вопроса вместилась в название темы smile

Pakshin A. S.

Дата 3.1.2005, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

ПРОСТО!

Код


var
 Word: Variant;
begin
 try
   Word := CreateOleObject('Word.Application');
   Word.Visible := False;
   Word.Visible := True;
 finally
   Word := Unassigned;
   Word := nil;
 end;
end;

Вроде так... smile

Можно и добавить документ...

Код


var
 Word, Document: Variant;
begin
 try
   Word := CreateOleObject('Word.Application');
   Word.Visible := False;
   Document := Word.Documents.Add;
   Word.Visible := True;
 finally
   Word := Unassigned;
   Word := nil;
 end;
end;

Добавлено @ 19:02
Добавть в uses:
ComObj, ActiveX

NiJazz

Дата 3.1.2005, 21:01 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: нет
Всего: 23

Зачем так сложно?

Код


WinExec('winword', 0);

Vorona

Дата 3.1.2005, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

NiJazz

Написала, ничего не происходит smile

Pakshin A. S.

Пишет:

Код


Word := nil;

- Incompatible types: 'Variant' and 'Pointer'
Это какая-то переменная? Что ты имеешь в виду?

Это сообщение отредактировал(а) Люба - 3.1.2005, 21:28

Satana

Дата 3.1.2005, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: нет
Всего: 5

Цитата

NiJazz

Написала, ничего не происходит smile

Pakshin A. S.

Пишет:

Код


Word := nil;

- Incompatible types: 'Variant' and 'Pointer'
Это какая-то переменная? Что ты имеешь в виду?

тогда попробуй просто 0 туда поставить должно все пахать, в этом участке он освобождает память от созданного объекта

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

Pakshin A. S.

Дата 3.1.2005, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

Попробуй null...

Код


Word := null;

И еще:
добавь модуль variants

Vorona

Дата 3.1.2005, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Спасибо всем, все отлично работает!!!! smile

Это сообщение отредактировал(а) Люба - 3.1.2005, 22:56

Pakshin A. S.

Дата 3.1.2005, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

Цитата(NiJazz @ 3.1.2005, 22:01)

Зачем так сложно?

Чтобы можно было открывать пустой Word, с новым документом, с открытым документом, со сгенерированным документом, без его сохранения на диск. и т. п...

Люба Не за что... smile

Vorona

Дата 4.1.2005, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Pakshin A. S.
А что, можно еще и с сохранением? Как? Было бы здорово еще и сохранять этот документ в заранее определенном месте на диске под заранее определенным именем!! smile

Это сообщение отредактировал(а) Люба - 4.1.2005, 20:10

Pakshin A. S.

Дата 4.1.2005, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

А черт его занет... не могу сказать... smile

Jey_k

Дата 4.1.2005, 21:04 (ссылка)

(нет голосов)

Загрузка ...

WEB-командир

Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: нет
Всего: 61

Цитата

А что, можно еще и с сохранением? Как? Было бы здорово еще и сохранять этот документ в заранее определенном месте на диске под заранее определенным именем!!

В этом случае

Код

Word, Document: Variant;
begin
 try
   Word := CreateOleObject('Word.Application');
   Word.Visible := False;
   Document := Word.Documents.Add;
   Word.Visible := True;
 finally
   Word := Unassigned;
   Word := nil;
 end;
end;

так

Код


Document.SaveAs(путь);

--------------------

Проверка IP

user posted image

Vorona

Дата 5.1.2005, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Jey_k

Большое спасибо, все работает!! smile

Vorona

Дата 5.1.2005, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Jey_k

А если надо сохранять как Web-страницу? Через SaveAs она выходит не пустая, а с какими-то значками....
А можно еще по кнопке открывать сущствующий файл и как? У меня не вышло smile

<Spawn>

Дата 5.1.2005, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: нет
Всего: 64

Цитата

Открыть существующий файл можно методом Open:

Код


  Word.Open('FileName');

Сохранить в HTML:

Код


    Word.SaveAs('FileName', wdFormatHTML); //wdFormatHTML лежит в WordXP.pas

Добавлено @ 14:51
Модератор: Пожалуйста, один топик - один вопрос.

И вообще этой теме место в ActiveX\Com\Corba

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Vorona

Дата 5.1.2005, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

<Spawn>

выдает ошибку на

Код


 Word.Open('FileName');

Говорит, что нет такого метода. Может я его не там пишу? Где в этом коде нужно написать эту строчку?

Код



Word, Document: Variant;
begin
try
  Word := CreateOleObject('Word.Application');
  Word.Visible := False;
  Document := Word.Documents.Add;
  Word.Visible := True;
finally
  Word := Unassigned;
  Word := nil;
end;
end;

Про SaveAs пишет тоже самое, что нет такого метода

Модератор: Постараюсь больше так не делать

Это сообщение отредактировал(а) Люба - 5.1.2005, 19:32

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »