For i = 1 To Documents.Count
If Documents(i).Name Like "TRCReq[0-9][0-9][0-9][0-9]*" Then '// for example 4 numbers...
Set myDoc = Documents(i)
docsFound = docsFound + 1
End If
Next
If docsFound = 1 Then
Set docToUse = myDoc
Else
'// More than one doc with naming convention - do something...
End If