Application.FileSeach findet auch Varianten
30.10.2008 11:11:33
gerwas
Zur Problematik:
per Macro suche ich Word-Dokumente, die einen bestimmten Text enthalten
With Application.FileSearch
.NewSearch
.LookIn = spfad 'suchpfad
.SearchSubFolders = subFolder 'Unterordner einbeziehen
.TextOrProperty = sstring 'der gesuchte text
.FileType = msoFileTypeWordDocuments
.Execute
For i = 1 To .FoundFiles.Count
Print #fl, .FoundFiles(i) 'fund in ein txt-file schreiben
Next i
End With
der Haken bei der Sache ist, dass FileSearch nicht nur alle Dateien "meldet" die meinen Text (hier als Beispiel AB-C) enthalten aber auch Dateien die "AB -C" oder "AB - C" enthalten.
Auch die Anwendung der Eigenschaft .MatchTextExactly = True hilft hier nicht ab.
Die gefundenen Dateien öffne ich später und suche darin nach meinem Text erneut, um ihn zu markieren und zu kopieren - nur Application.Find findet wirklich nur meinen String "AB-C" nicht die Varationen wie oben.
Wer kann mir einen Tipp geben, wie ich dem FileSearch abgewöhnen kann die Variationen zu melden? Oder wie bekomme ich mit, welche Variationen gefunden wurden um sie später mit Find extra zu suchen?
GerWas