Нужен макрос или программа для пакетной обработки файлов

[srgg]

Нужно написать программу или макрос, которая будет обрабатывать в пакетном режиме файлы в формате .doc|.rtf в указанной директории, удаляя из них часть текста в соответствии с настройками (в %).
Например, указан параметр "оставлять 20% текста". Это означает, что 20% от объёма текста остаются без изменений, остальные 80% удаляются.
Желательно также, чтобы файлы сохранялись под новыми именами.

Существует похожее решение: http://www.sobolsoft.com/wordsplit/
однако оно не совсем подходит, т.к.:
1. Сохраняет весь текст в виде нескольких файлов, тогда как нужно сохранить только 1, обрезанный
2. Работает некорректно.

[shanemac51]

если я правильно поняла при обработке а1.дос из 10,000симв
-оставить 2,000симв в файле dop1\a1doc
-сохранив формат,таблицы,колонтитулы,рисунки

или

надо получить для экспресс-просмотра
-2,000симв в текстовом формате
-преобразовав таблицы построчно
-вместо рисунков --указатель наличия рисунка или диаграммы

[lovial]

Вот макрос для пакетной обработки
Sub Abz111()
Set WordObj = CreateObject("Word.Application")
MyPath = "C:\Obrabotka\1\"
iFileName = Dir(MyPath)
Do While iFileName <> ""
Set WordDoc = WordObj.Documents.Open(MyPath + iFileName)
WordObj.Visible = False


WordObj.Documents(iFileName).SaveAs FileFormat:=wdFormatDocument
WordObj.Documents(iFileName).Close SaveChanges:=True
iFileName = Dir
Loop
WordObj.Quit
Set WordDoc = Nothing
Set WordObj = Nothing
End Sub
Он последовательно открывает файлы в папке C:\Obrabotka\1\ и делает над ними заданные действия (действия надо вписать в разрыв текста макроса).
Насколько я понял, надо посчитать количество символов (с пробелами) в документе и убрать 80%. Если в тексте нет таблиц\картинок, проблем не вижу.