|
Предпоследняя строка у тебя какая-то неподходящая:
Loop Until myRange.EndOf = True
Мне кажется надо:
Loop Until myRange.End = False
Т. е. не метод EndOf, который возвращает смещение, а свойство конца диапазона.
Еще я подозреваю, что задача сформулированна не совсем удачно. По виду похоже, что тебе надо поправить некоторый список (например отсканированный словарь), так что бы каждый абзац начинался с вводного слова (полужирное начертание), а содержание абзаца выделялось отсупом. Если так, то эту задачу можно решить проще через глобальный поиск-замену, и макрос будет работать в разы быстрее.
|