sub ptxt()
pt = InputBox("輸入:") '輸入文字
With ActivePresentation.SlideShowSettings '播放幻燈片設置
.Run
End With
If pt = "王和感" Then '輸入的內容,對應特定幻燈片
SlideShowWindows(Index:=1).View.GotoSlide Index:=115 '跳轉到特定幻燈片115張
Else
end if
End sub