Activate Method Example

This example activates the document named "Sales.doc."

Documents("Sales.doc").Activate

This example activates the next window in the Windows collection.

ActiveDocument.ActiveWindow.Next.Activate

This example activates the Notepad application if Notepad is in the Tasks collection.

For Each myTask In Tasks
    If InStr(myTask.Name, "Notepad") > 0 Then
        myTask.Activate
        myTask.WindowState = wdWindowStateNormal
    End If
Next myTask

This example splits the active window and then activates the first pane.

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