本示例显示 NewWindow 方法应用前后活动文档的窗口数目。

MsgBox Prompt:= ActiveDocument.Windows.Count & " window(s)", _
    Title:= ActiveDocument.Name
ActiveDocument.ActiveWindow.NewWindow
MsgBox Prompt:= ActiveDocument.Windows.Count & " windows", _
    Title:= ActiveDocument.Name