Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Коллекция объектов 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 и обратная связь.