VBA编程在课件中的应用0113.pptVIP

三种窗口模式 窗口数量 MsgBox 文档窗口数量： Windows.Count MsgBox 放映窗口数量： SlideShowWindows.Count If Application.Version = 14.0 Then MsgBox 保护窗口数量： ProtectedViewWindows.Count End If 当前文档视图窗口 If Windows.Count 0 Then If (Windows(1).Active) Then MsgBox 当前文档窗口： ActiveWindow.Caption End If End If 当前放映视图窗口 If SlideShowWindows.Count 0 Then If (SlideShowWindows(1).Active) Then MsgBox 当前放映窗口： ActivePresentation.Name End If End If 当前保护视图窗口 If Application.Version = 14.0 Then If P