Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Объект Word.Task, программный запуск приложений из Word средствами VBA, передача сообщений из Word внешним приложениям




Чаще всего Word запускается из Excel, Access или другого приложения, но иногда встречается и обратная необходимость — нужно открыть из Word другое приложение и переключиться в него. Самый простой способ запустить другое приложение из Word — воспользоваться стандартным объектом VBA Shell. Например, чтобы запустить блокнот, можно воспользоваться командой

Shell ("notepad.exe")

Есть и множество других возможностей, например, воспользоваться объектом Application для других приложений Word, или средствами WSH (особенно для консольных приложений), или — если приложение нужно запустить на другом компьютере — средствами WMI.

После того, как приложение запущено, весь набор работающих приложений представляется в Word коллекцией Tasks, а каждое отдельное приложение — соответственно, объектом Task. У коллекции Tasks есть два интересных метода:

· Exists() — проверить, запущено ли нужное нам приложение. Например, запуск нашего блокнота с проверкой может выглядеть так:

If Tasks.Exists("Notepad") = False Then

Shell "notepad.exe"

Else

Tasks("Notepad").Activate

End If

Tasks("Notepad").WindowState = wdWindowStateMaximize

· ExitWindows() — произвести операцию Log Off, то есть завершить сеанс работы в Windows. Несохраненные документы Word при этом закроются без сохранения (и без вопросов к пользователю), а документы остальных приложений пользователю будет предложено сохранить.

У объекта Task интересных свойств и методов больше:

· Height, Width, Top, Left — эти свойства позволяют точно настроить размер окна выбранного вами приложения.

· Visible — возможность спрятать приложение.

· WindowState — возможность развернуть, свернуть или восстановить окно.

· назначение методов Activate(), Close(), Move(), Resize() очевидно.

самый интересный метод — это метод SendWindowMessage(). Он позволяет передавать окну приложения сообщения Windows (щелчки мышью, нажатия клавиш и т.п.). Разобраться в том, какие приложения можно посылать окнам приложений и что они значат, можно при помощи Microsoft Platform Software Development Kit. Например, чтобы в нашем блокноте отобразить окно "О программе", можно воспользоваться командой

Tasks("Notepad").SendWindowMessage &H111, 11, 0

10.6.11 Коллекция Windows и объект Window

Объект Word.Window, программная работа с окнами документов в Word средствами VBA

Коллекция Windows и объект Window представляют окна открытых документов Word и используются в основном для настройки внешнего вида этих окон и навигации по ним. Получить доступ к окну нужного нам документа можно так:

Dim Window 1 As Window

Set Window1 = Windows("doc2.doc")

или так:

Set Window1 = ThisDocument.ActiveWindow

После этого можно использовать свойства и методы объекта Window. Все они очень просты. Например, чтобы поменять заголовок окна, можно использовать такой код:

Window1.Caption = "Мое приложение"






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных