WindowActivate Event Example

This example maximizes any document window when it's activated.

Private Sub App_WindowActivate _
        (ByVal Wn As Word.Window)
    Wn.WindowState = wdWindowStateMaximize
End Sub