可以使用 Document 对象修改任何“文档”窗口的位置和大小。使用 WindowState 特性可以将“文档”窗口最小化或最大化，还可以查看“文档”窗口的当前状态。
放置“文档”窗口
本例使用 Width 和 Height 特性将活动“文档”窗口设置为宽 400 像素、高 400 像素。
Sub Ch3_SizeDocumentWindow()
ThisDrawing.Width = 400
ThisDrawing.Height = 400
End Sub
将活动“文档”窗口最大化
Sub Ch3_MaximizeDocumentWindow()
ThisDrawing.WindowState = acMax
End Sub
将活动“文档”窗口最小化
Sub Ch3_MinimizeDocumentWindow()
ThisDrawing.WindowState = acMin
End Sub
查看活动“文档”窗口的当前状态
Sub Ch3_CurrentWindowState()
Dim CurrWindowState As Integer
Dim msg As String
CurrWindowState = ThisDrawing.WindowState
msg = Choose(CurrWindowState, "normal", _
"minimized", "maximized")
MsgBox "The document window is " + msg
End Sub
