本示例关闭除第一个窗口外的所有窗口。
With Application.Windows
For i = 2 To .Count
.Item(2).Close
Next
End With