Try this:

Sub FindRightParenthesisWithinSelection()'Code written by Greg Maxey
Dim myRange As Range
Dim oRngBounds As Range


  Set myRange = Selection.Range
  Set oRngBounds = myRange.Duplicate
  
  With myRange.Find
    'Find end paragraph mark then number then right ) followed by a space
    .Text = "([0-9]@)([\)])([ ])"
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Forward = True
    
    Do While .Execute
    
      If Not myRange.InRange(oRngBounds) Then Exit Sub
      
      If myRange.Start = myRange.Paragraphs(1).Range.Start Then
      
        myRange.Select
        ActiveWindow.ScrollIntoView Selection.Range
        
        Select Case MsgBox("Do you want to insert a tab after this bracket?", vbQuestion + vbYesNoCancel, "Insert tab after bracket")
        Case vbYes
           myRange.Characters.Last = vbTab
        Case vbNo
          'Do nothing.
        Case Else
          GoTo lbl_Exit
        End Select
        
        myRange.Collapse wdCollapseEnd
        
      End If
      
    Loop
    
  End With
  
lbl_Exit:
  Exit Sub
End Sub