应用于 LineNumbering 对象的 Active 属性。
如果该属性值为 True,则指定文档、一节或多节的行号处于活动状态。Long 类型,可读写。
expression.Active
expression 必需。该表达式返回一个 LineNumbering 对象。
如果该属性值为 True,则指定窗口或窗格中的所选内容处于活动状态。Boolean 类型,只读。
expression.Active
expression 必需。该表达式返回一个 Selection 对象。
本示例为所选内容中的第一节激活行号设置功能。
Sub CountByFive()
    With Selection.Sections(1).PageSetup.LineNumbering
        .Active = True
        .CountBy = 5
        .StartingNumber = 1
    End With
End Sub
本示例将活动窗口拆分为两个窗格,如果第一个窗格中的所选内容不处于活动状态,则激活该内容。
Sub SplitWindow()
    ActiveDocument.ActiveWindow.Split = True
    If ActiveDocument.ActiveWindow.Panes(1).Selection _
            .Active = False Then
        ActiveDocument.ActiveWindow.Panes(1).Activate
    End If
End Sub
如果 Windows 集合中的第一个窗口当前不处于活动状态,则本示例激活该窗口。
Sub ActiveWin()
    If Windows(1).Active = False Then Windows(1).Activate
End Sub