Поиск документа Word и его сохранение в другой папке под другим именем

[Seve]

Здравствуйте! Помогите пожалуйста в решении проблемы...
В больнице есть несколько одинаковых по структуре баз данных Access, которые содержат информацию о разных пациентах (некоторые пациенты представлены в разных базах) за несколько лет. Одно из полей таблицы, содержащей информацию о случаях госпитализации (истории болезни) является гиперссылкой на документ Word. Имя документа Word это код истории болезни с расширением *.doc. Возникла необходимость объединения информации из нескольких баз в одну (появилась локальная сеть). При объединении баз произвожу переиндексацию объединенной таблицы (коды историй перестали быть уникальными), а для связи с файлами Word предполагаю сохранить их в новую папку с новым именем, соответствующим новому коду истории болезни. Пытался использовать следующий код:

  Set WdApp = CreateObject("Word.Application")
With WdApp.FileSearch
    .LookIn = ИсторПуть & strFold
    .FileType = msoFileTypeWordDocuments
    .FileName = CodeOld & ".doc"
    If .Execute > 0 Then
        For n = 1 To .FoundFiles.Count
            WdApp.Documents.Open .FoundFiles(n)
            Set WdDoc = WdApp.Documents(.FoundFiles(n))
            strNameDoc = ИсторПуть & NewFold & КодИст & ".doc"
'            MsgBox strNameDoc
            WdDoc.SaveAs strNameDoc
        Next n
    End If
End With
    WdApp.Quit

Но Word.Application.FileSearch разыскивает файлы не корректно. Так при поиске документа с именем 244.doc находит и 1244.doc, и 2244.doc и т.д. Кроме того, требует еще и открытия документа, что по-моему непрофессиональному представлению (я врач) будет сильно тормозить процесс. Вопрос: можно ли организовать в модуле Vba поиск документа и его переименование средствами Windows? Или как это правильно сделать используя Word.Application?