Объект Tasks (Word)
Коллекция объектов Task , представляющая все задачи, выполняемые в данный момент в системе.
Используйте свойство Tasks , чтобы вернуть коллекцию Tasks . В следующем примере определяется, работает ли Microsoft Excel. Если это так, в этом примере выполняется переключение на него и его максимальное увеличение; В противном случае он запускается в примере.
If Tasks.Exists("Microsoft Excel") = True Then
Tasks("Microsoft Excel").Activate
Tasks("Microsoft Excel").WindowState = wdWindowStateMaximize
Else
Shell "C:\Program Files\" & _
"Microsoft Office\Office10\Excel.exe"
End If
Используйте функцию Оболочки Visual Basic, чтобы запустить исполняемую программу и добавить ее в коллекцию Tasks .
Используйте tasks (Index), где Index — это имя приложения или номер индекса, чтобы вернуть один объект Task . В следующем примере открывается окно приложения для первой видимой задачи в коллекции Tasks и изменяет его размер.
With Tasks(1)
If .Visible = True Then
.Activate
.Width = 400
.Height = 200
End If
End With
В следующем примере восстанавливается окно приложения калькулятора, если приложение находится в коллекции Tasks .
If Tasks.Exists("Calculator") = True Then
Tasks("Calculator").WindowState = wdWindowStateNormal
End If
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.