Sub HilitePartNumsHyph()
  Dim rngWord As Range, aRng As Range, sWord As String
  Dim oRng As Range, oNum As Range, rngFrag As Range
  
  Set oRng = ActiveDocument.Range
  With oRng.Find
    Do While .Execute(findText:="[0-9]{1,}", MatchWildcards:=True)
      Set oNum = oRng.Words(1)
      'oNum.Select                                  'XXXX Testing Only XXX
      sWord = UCase(Trim(oNum.Text))
      If sWord Like "*[A-Z]*" Then                  'If there is a letter included it is a part num
        Set rngFrag = oNum.Words.Last.Next
        'rngFrag.Select                             'XXXX Testing Only XXX
        If rngFrag.Text = "-" Then
          rngFrag.MoveEnd Unit:=wdWord, Count:=1
          oNum.End = rngFrag.End
          oNum.Select                               'XXXX Testing Only XXX
        End If
        oNum.HighlightColorIndex = wdYellow
        Debug.Print oNum                            'This is the output list
      End If
      oRng.Start = oNum.End
    Loop
  End With
End Sub