Word VBA教程:UsableHeight属性

对于 Application对象:返回 Microsoft Word 文档窗口高度可设定的最大值(以磅为单位)。Long 类型,只读。

对于 Window对象:返回指定的文档窗口中活动工作区的高度(以磅为单位)。Long 类型,只读。如果文档窗口中没有可见的工作区,则 UsableHeight 返回 1。实际可用的高度值可用 UsableHeight 值减去 1 来确定。

VBA示例

本示例将活动文档窗口的尺寸设置为屏幕最大区域的四分之一。


With ActiveDocument.ActiveWindow
    .WindowState = wdWindowStateNormal
    .Top = 5
    .Left = 5
    .Height = (Application.UsableHeight*0.5)
    .Width = (Application.UsableWidth*0.5)
End With

本示例显示活动文档窗口中工作区的大小。


With ActiveDocument.ActiveWindow
    MsgBox "Working area height = " _
        & .UsableHeight & vbLf _
        & "Working area width = " _
        & .UsableWidth
End With

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号