I have to search for a code that has 3 characters - 7 characters - 2 characters - 1 characters and always starts with 0REG
The characters of the code can be 0-9 and A-Z
e.g. 0REG123-1TR456A-D2-5
What should I put where the ??? are?
Sub Registratiecode()
Dim oRng As Range
Set oRng = ActiveDocument.Sections(1).Range
With oRng.Find
Do While .Execute(FindText:="0REG ???", MatchWildcards:=True)
Select Case oRng.Characters(1)
Case 0: Call MacroRegCode
Case Else
End Select
Exit Do
Loop
End With
End Sub