Mega Code Archive
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