метод ИзвлечьФайлСНовымРасширением(Архив: ФайлZip, ИмяФайла: Строка, КаталогРаспаковки: Строка)
пер Элементы = Архив.Найти(ИмяФайла)
пер Каталог = новый Файл(Файлы.ПолучитьДомашнийКаталогПользователя().Путь, [КаталогРаспаковки])
для Элемент из Элементы
если не Элемент.ЭтоКаталог()
Архив.Извлечь(Элемент, Каталог)
Файлы.Переименовать(новый Файл(Элемент.ПутьВАрхиве, Каталог), Элемент.ИмяБезРасширения + ".doc")
;
;
;