Ole контейнер

@дрюндель · Регистрация: 06.11.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер господа, не подскажете почему когда добавляешь в Ole контейнер любой Word документ то в контейнере отображается всего лишь первая страница А4, хотя в документе гораздо больше... (Нужен простой вывод большого количества инфы с помощью сего контейнера. Пример в Архиве)

@volvo · 19.11.2012, 19:21

Простой вывод (имеется в виду "без возможности редактирования", наверняка) делается так:

Delphi

procedure TForm1.FormShow(Sender: TObject);
begin
   OleContainer1.Run;
   OleContainer1.DoVerb(ovShow);
   // Гасишь все тулбары, чтоб не мешались. Это зависит от версии Office
   OleContainer1.OleObject.Protect(wdAllowOnlyFormFields); // = 2, или wdAllowOnlyReading = 3
end;

В режиме предпросмотра (без открытия документа) отображается только одна страница, да.

@дрюндель · 19.11.2012, 20:51 **[ТС]**

сори за дурацкий вопрос, но куда код вставлять?

Добавлено через 8 минут
прошлый вопрос снимается, при компиляции выдает
[Error] Unit1.pas(41): Undeclared identifier: 'wdAllowOnlyFormFields'
не совсем понимаю что нужно исправить ....

@volvo · 19.11.2012, 21:08

Я же написал, чему равно значение wdAllowOnlyFormFields. Двойке. То есть,

Delphi

1	const wdAllowOnlyFormFields = 2;

, или просто в Uses добавить модуль Word..., в котором все эти константы уже описаны. Какой у тебя Word - не знаю, добавь версию сам. У меня для OfficeXP используется Uses WordXP.

@дрюндель 0 / 0 / 0 Регистрация: 06.11.2012 Сообщений: 25
	19.11.2012, 20:51 [ТС]	3
	сори за дурацкий вопрос, но куда код вставлять? Добавлено через 8 минут прошлый вопрос снимается, при компиляции выдает [Error] Unit1.pas(41): Undeclared identifier: 'wdAllowOnlyFormFields' не совсем понимаю что нужно исправить .... 0

	19.11.2012, 21:08