Работа с MSWord

← →
Bers01 (2004-01-20 11:49) [0]

Добрый день УВАЖАЕМЫЕ МАСТЕРА!
Поскажите кто знает:
Есть var WA:TWordApplication;
В нем открыто много документов ( WA.Documents.Add(...);).
Как сделать активным j-ый документ т.е. чтобы стало активным окно c WA.Documents.Items(j);

С Уважением, Андрей.

← →
Семен Сорокин (2004-01-20 11:54) [1]

Activate?

← →
Bers01 (2004-01-20 12:02) [2]

Activate; делает j-тый документ активным, но если пользователь до этого переключился на другой документ, то верхним(отображаемым документом) по прежнему остается тот, который выбрал пользователь. Как Быть? Как j-ый отобразить поверх остальных?

С Уважением, Андрей.

← →
Семен Сорокин (2004-01-20 12:14) [3]

посмотри в Helpe по поводу ActiveWindow

← →
Yr2 (2004-01-20 12:48) [4]

1. Уточните, с каким Word_ом Вы работаете. В Word97 и в Word2000 это будет делаться по-разному. Так как большинство уже перешло на Word2000/2002, то описываю как я это делал. Не могу точно сам объяснить некоторые майкрософтовские заморочки, но эмпирически был получен метод, который надёжно работает практически всегда. Проверьте на примере трёх кнопок. Вот обработчик первой:
Procedure TForm1.Button1Click(Sender: TObject); VAR Index : OleVariant; begin Index:=1; WA.Documents.Item(Index).Activate; { активизировать Word-документ (1!)} WA.Documents.Item(Index).ActiveWindow.Activate; { активизировать главное Word-окно (2!)} WA.Activate; { активизировать Word (курсор) (3!)} { порядок важен! иначе чего-нибудь не сработает } end;
Внимание: переключение между документами (их активизация) будет производиться, если все они уже открыты и видимы на экране (пусть частично или полностью перекрыты). Но, если они полностью минимизированы, то возникает проблема:

2. Начиная с Win2000 активизация закрытого докмента не раскрывает этот документ, а ТОЛЬКО активизирует кнопку на панели задач. Я долго боролся с этим явлением, но красивого и оригинального решения так и не нашел. хотя сделал :)

← →
Bers01 (2004-01-20 13:10) [5]

Да Word именно 2000
Спасибо - заработало!

Работа с MSWord Найти похожие ветки