tekst/code zoeken

[Piri10]

Ik probeer een code te zoeken in mijn document met 3 karakters - 7 karakters- 2 karakters - 1 karakter en begint met 0REG
de karakters kunnen getallen of letters zijn (0-9 en A-Z)
e.g. 0REG123-1TR456A-D2-5

wat moet er op de plaats van de ???

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

 

[Elsendoorn2134]

Piri10,

De zoekstring met wildcard zou "0REG???-?????????-??-?" moeten zijn.

Veel Succes.