Tak tak. Bez VBA ani ránu. To, po čem toužíš, dělá objekt FileSearch. Vypadá to třeba takhle:
Kód:
With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .TextOrProperty = "parcela 122/458"
    .FileType = msoFileTypeOfficeFiles
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
     Else
        MsgBox "There were no files found."
     End If
End With