Как создать сценарий Search.vba в PowerPoint, чтобы просмотреть файлы в папке и дать мне слайды?

Question

У меня есть этот код, который выполняет поиск в файле PowerPoint, который не работает должным образом, но это не единственные проблемы, мне нужно, чтобы у меня был файл PowerPoint, который содержит форму , такую ​​какПоисковая система, когда при вводе идентификатора в текстовое поле 1004 * открывает все файлы PowerPoint в папке, содержащие этот идентификатор.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim osld As Slide
Dim oshp As Shape
Dim b_found As Boolean
Dim oTxtRng As TextRange
Dim sTextToFind As String

sTextToFind = Me.TextBox1.Text


 If KeyCode = 13 Then 
     If Me.TextBox1.Text <> "" Then
         For Each osld In ActivePresentation.Slides
             For Each oshp In osld.Shapes
                 If oshp.HasTextFrame Then
                     If oshp.TextFrame.HasText Then
                         If InStr(UCase(oshp.TextFrame.TextRange), UCase(Me.TextBox1.Text)) > 0 Then
                             SlideShowWindows(1).View.GotoSlide (osld.SlideIndex)
                             Set oTxtRng = oshp.TextFrame.TextRange.Characters(InStr(oshp.TextFrame.TextRange.Text, sTextToFind), Len(sTextToFind))
                             Debug.Print oTxtRng.Text

                             With oTxtRng
                                 .Font.Bold = True
                             End With

                             b_found = True
                             Exit For
                         End If
                     End If
                 End If
             Next oshp

             If b_found = True Then Exit For
         Next osld
     End If

     If b_found = False Then MsgBox "Not found"
 End If

End Sub

Ошибка в этой строке: SlideShowWindows(1).View.GotoSlide(osld.SlideIndex)