This is fairly straightforwards, though you haven't indicated what you want to do with the strings. The following just displays them in a message box as they are found.
Sub Macro1()
Dim strNum As String
Dim strYear As String
Dim orng As Range
Set orng = ActiveDocument.Range
With orng.Find
Do While .Execute(FindText:="[0-9]{2,}\/[0-9]{4}", MatchWildcards:=True)
strNum = Split(orng.Text, "/")(0)
strYear = Right(orng.Text, 2)
'Do something with the strings e.g.
MsgBox strNum & vbCr & strYear
orng.Collapse 0
Loop
End With
lbl_Exit:
Exit Sub
End Sub