ник: Seryoga204
час
Спасибо ! Спасибо! Спасибо!
Все пашет как часы. Проблему с кодировкой решил подстановкой Encoding:=866 в строку:
Set objDoc = .Documents.Open(objItem.Path, False, True, False, Encoding:=866)
И все файлы стали печататься на нормальном языке.