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