ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Сделать окно активным
2 сообщений из 2, страница 1 из 1
Сделать окно активным
    #39472587
Paganel677
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paganel677
Гость
Создал процедуру выгрузки кое-чего в Word. Работает. Файл сохраняет. После окончания выгрузки из 1С этот новый файл открывается, всё отлично.

Но только вот сам Word на заднем плане, активно по-прежнему окно 1С. Как сделать активным окно Word?
...
Рейтинг: 0 / 0
15.06.2017, 18:03
| Ответить | Цитировать | Написать  
Сделать окно активным
    #39476965
Фотография Владимир Лазурко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Лазурко
Участник
http://mikuslas.ru/word_state 1. У объекта Application есть свойство WindowState, которое возвращает или устанавливает состояние окна документа, которое может принимать три значения: Normal, Maximized и Minimized (в значениях 1С - это 0, 1 и 2 соответственно). Суть данного способа сводится к тому, чтобы свернуть и снова развернуть окно.

Код: sql
1.
2.
3.
ОбъектВорд.Application.Visible = Истина;
ОбъектВорд.Application.WindowState = 2;
ОбъектВорд.Application.WindowState = 1;



2. Второй способ является продолжением первого, но в этом случае мы сворачиваем все активные окна и разворачиваем все имеющиеся окна MS Word.

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
Оболочка = Новый COMОбъект("Shell.Application");
Оболочка.MinimizeAll();
ОбъектВорд.Visible = -1;
Окна = Документ.Windows;
Для Сч = 1 По Окна.Count Цикл
    Окно = Окна.Item(Сч);
    Окно.WindowState = 1;
КонецЦикла;
ОбъектВорд.Activate();
...
Рейтинг: 0 / 0
23.06.2017, 20:02
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Сделать окно активным
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]