Question

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

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

expression.Resize(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