Search results

I used the dir function to replace the filesearch object Here is the fix: Dim objWord As Object Dim objDoc As Word.Document Dim db As Database Dim data As Recordset Dim bWord As Boolean Dim strFolderName, strNPID, strTemp As String Dim tablenb, table, row, column, i As Integer Dim StrMyFile As...