VPF::Передача текста в Word - Форум программистов

Pakshin A. S.

Дата 16.8.2003, 16:12 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ситуация следующая:
Есть текст в Memo, его нужно запихнуть в Word, ну так чтобы открылся
Word, а в нём уже был мой текст, но никаких файлов на диске при этом
не должно быть создано, т. е. Memo1.SaveToFile не идёт.

Как это сделать?

<Spawn>

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

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

Загрузка ...

Око кары:)

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

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

Просто)) Щас состряпаю)

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

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

<Spawn>

Дата 16.8.2003, 16:39 (ссылка)

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

Загрузка ...

Око кары:)

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

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

Примерно так.

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 Unknown:IUnknown;
 Result:HRESULT;
 AppProgID:string;
 Word,Document:Variant;
begin
AppProgID:='Word.Application';
Result:=GetActiveObject(ProgIdToClassId(AppProgID),nil,Unknown);
if Result=MK_E_UNAVAILABLE then
 Word:=CreateOleObject(AppProgId)
else
 Word:=GetActiveOleObject(AppProgId);
Word.Visible:=False;
Document:=Word.Documents.Add;
Document.Range.InsertAfter(Memo1.Text);
Word.Visible:=True;
end;

Это сообщение отредактировал(а) <Spawn> - 16.8.2003, 16:41

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

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