Question

全部显示

应用于 Application、Document、InlineShape、OLEFormat、Pane、Shape、ShapeRange 和 Window 对象的 Activate 方法。

激活指定的对象。

expression.Activate

expression 必需。该表达式返回以上的一个对象。

应用于 Task 对象的 Activate 方法。

激活 Task 对象。

expression.Activate(Wait)

expression 必需。该表达式返回一个 Task 对象。

WaitVariant 类型，可选。如果该参数为 True，则仅在用户激活 Word 之后才激活任务。如果该参数为 False，则即使 Word 未处于激活状态时，也可以立即激活该任务。

示例

当应用于 Document 对象时。

本示例激活名为“Sales.doc”的文档。

Sub OpenSales()
   'Sales.doc must exist and be open but not active.
   Documents("Sales.doc").Activate
End Sub

当应用于 Window 对象时。

本示例激活 Windows 集合中的下一个窗口。

Sub NextWindow()
    'Two or more documents must be open for this statement to execute.
    ActiveDocument.ActiveWindow.Next.Activate
End Sub

当应用于 Task 对象时。

如果“记事本”应用程序在 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

当应用于 Pane 对象时。

本示例拆分活动窗口，然后激活第一个窗格。

Sub SplitWindow()
 With ActiveDocument.ActiveWindow
 .SplitVertical = 50
 .Panes(1).Activate
 End With
End Sub