Макрос пакетного применения макросов+разделение enterом по словам

Добрый день.

Возникло 2 задачи.

1. Необходимо в папке с большим количество doc/docx файлов применить несколько различных макросов, но как сделать это массово - не могу сообразить.
Пытался поменять http://wordexpert.ru/page/massovoe-form … dokumentov , но запутался, т.к. редко пользуюсь такими вещами.
Пример макроса - нужно удалить картинки

Sub AllImgDelete()
'Удаление всех картинок в активном документе
Dim Img As InlineShape
    For Each Img In ActiveDocument.InlineShapes
        Img.Delete
    Next Img
End Sub

Соответственно как его доработать, чтобы не открывать файлы по одному?Подскажите, пожалуйста.

2. Необходимо ставить в тех же ворд файлах enter после каждого 50го слова (пример) - есть ли возможность это сделать макросом?

Спасибо за помощь!