ActiveWindow 属性

返回 Window 对象，该对象代表活动窗口（焦点所在的窗口）。如果没有打开的窗口，则会导致出错。只读。

示例

本示例显示活动窗口的标题文本。

Sub WindowCaption()
    MsgBox ActiveDocument.ActiveWindow.Caption
End Sub

本示例为活动文档的活动窗口打开一个新窗口，然后平铺所有窗口。

Sub WindowTiled()
    Dim wndTileWindow As Window
    
    Set wndTileWindow = ActiveDocument.ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=wdTiled
End Sub

本示例拆分第一个文档窗口。

Sub WindowSplit()
    Documents(1).ActiveWindow.Split = True
End Sub