应用于 Application、Document、InlineShape、OLEFormat、Pane、Shape、ShapeRange 和 Window 对象的 Activate 方法。
激活指定的对象。
expression.Activate
expression 必需。该表达式返回以上的一个对象。
激活 Task 对象。
expression.Activate(Wait)
expression 必需。该表达式返回一个 Task 对象。
Wait Variant 类型,可选。如果该参数为 True,则仅在用户激活 Word 之后才激活任务。如果该参数为 False,则即使 Word 未处于激活状态时,也可以立即激活该任务。
本示例激活名为“Sales.doc”的文档。
Sub OpenSales()
'Sales.doc must exist and be open but not active.
Documents("Sales.doc").Activate
End Sub
本示例激活 Windows 集合中的下一个窗口。
Sub NextWindow()
'Two or more documents must be open for this statement to execute.
ActiveDocument.ActiveWindow.Next.Activate
End Sub
如果“记事本”应用程序在 Tasks 集合中,则本示例激活“记事本”。
Sub ActivateNotePad()
Dim Task1 'Notepad must be open and in the Task List.
For Each Task1 In Tasks
If InStr(Task1.Name, "Notepad") > 0 Then
Task1.Activate
Task1.WindowState = wdWindowStateNormal
End If
Next Task1
End Sub
本示例拆分活动窗口,然后激活第一个窗格。
Sub SplitWindow()
With ActiveDocument.ActiveWindow .SplitVertical = 50 .Panes(1).Activate End With End Sub