If TextBox1.Text <> "" Then
ActivePresentation.SlideShowWindow.View.GotoSlide 3 '文本框不为空跳到第三页
Else
ActivePresentation.SlideShowWindow.View.GotoSlide 2 '否则跳到第二页
End If
法号嘎伦 发表于 2009-9-19 20:42:23
?不好用啊?提示“Invalid Request. There is currently no slide show view for this presentation”
ActivePresentation.SlideShowWindow.View.GotoSlide 3 '文本框不为空跳到第三页
Else
ActivePresentation.SlideShowWindow.View.GotoSlide 2 '否则跳到第二页
End If