Word VBA教程:Activate方法

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

激活指定的对象。

expression.Activate

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

应用于 Task对象的 Activate方法。

激活 Task对象。

expression.Activate(Wait)

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

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

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号