Microsoft Office Forums - View Single Post

JMer · 07-22-2015, 02:00 PM

I have created a UserForm so that I can search my powerpoint slide during the presentation. I am trying to figure out how to code the command button "Next" on the userform to take me to the next time the searched word is found in the presentation. The code I am currently using is

Code:

Private Sub FCnext_Click()
If TextBox1 = True Then
  If Me.TextBox1.Text <> "" Then
    SlideShowWindows(1).View.GotoSlide (osld.SlideIndex)
  End If
End If
End Sub
 
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
If KeyCode = 13 Then 'ENTER PRESSED
  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)
              Me.TextBox1.Text = ""
              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

The second part is the search part for the text box inside of my user form, it works correctly, the trouble I am having is getting the command button to do the search again and take me to the next slide.

Thank you for any help.