Word VBA教程:Active属性

应用于 LineNumbering对象的 Active属性。

如果该属性值为 True,则指定文档、一节或多节的行号处于活动状态。Long 类型,可读写。

expression.Active

expression   必需。该表达式返回一个LineNumbering对象。

应用于 Selection对象的 Active属性。

如果该属性值为 True,则指定窗口或窗格中的所选内容处于活动状态。Boolean 类型,只读。

expression.Active

expression   必需。该表达式返回一个Selection对象。

应用于 Window对象的 Active属性。

如果该属性值为 True,则指定窗口处于活动状态。Boolean 类型,只读。

expression.Active

expression   必需。该表达式返回一个Window对象。

VBA示例

当应用于 LineNumbering对象时。

本示例为所选内容中的第一节激活行号设置功能。


Sub CountByFive()
    With Selection.Sections(1).PageSetup.LineNumbering
        .Active = True
        .CountBy = 5
        .StartingNumber = 1
    End With
End Sub

当应用于 Selection对象时。

本示例将活动窗口拆分为两个窗格,如果第一个窗格中的所选内容不处于活动状态,则激活该内容。


Sub SplitWindow()
    ActiveDocument.ActiveWindow.Split = True
    If ActiveDocument.ActiveWindow.Panes(1).Selection _
            .Active = False Then
        ActiveDocument.ActiveWindow.Panes(1).Activate
    End If
End Sub

当应用于 Window对象时。

如果Windows集合中的第一个窗口当前不处于活动状态,则本示例激活该窗口。


Sub ActiveWin()
    If Windows(1).Active = False Then Windows(1).Activate
End Sub

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号