To maximize, minimize, or restore a window, set its WindowState property to wdWindowStateMaximize, wdWindowStateMinimize, or wdWindow
Sub max() With Documents("Example.doc").Windows(1) If .WindowState = wdWindowStateMinimize Then _ .WindowState = wdWindowStateMaximize End With End Sub