Resize 方法

调整 Word 应用程序或某一任务的窗口大小。如果该窗口被最大化或最小化，将导致出错。

注意   使用 Width 或 Height 属性可分别设置窗口的宽度和高度。

expression   必需。表达式返回一个 Application 或 Task 对象。

Width   Long 类型，必需。表示窗口的宽度，以磅值为单位。

Height   Long 类型，必需。表示窗口的高度，以磅值为单位。

示例

本示例将 Microsoft Excel 应用程序窗口调整为 6 英寸宽、4 英寸高。

If Tasks.Exists("Microsoft Excel") = True Then
    With Tasks("Microsoft Excel")
        .WindowState = wdWindowStateNormal
        .Resize Width:=InchesToPoints(6), Height:=InchesToPoints(4)
    End With
End If

本示例将 Word 应用程序窗口调整为 7 英寸宽、6 英寸高。

With Application
    .WindowState = wdWindowStateNormal
    .Resize Width:=InchesToPoints(7), Height:=InchesToPoints(6)
End With