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