В макросе нужно удалить все пустые абзацы. Делаю так:Код: With oReplace .SearchString = "^$" .ReplaceString = "" End With oDoc.ReplaceAll(oReplace)НО: если в документе есть таблица с пустым абзацем в ячейке, то Офис зависает намертво! Это же происходит при попытке удаления всех пустых абзацев в тексте с таблицей и в стандартном диалоге поиска и замены.Если не ошибаюсь, то для oReplace надо задать атрибуты поиска и замены, чтобы проигнорировать поиск в Таблице:Код
im SrchAttributes(0) As New com.sun.star.beans.PropertyValueSrchAttr ibutes(0).Name = "XXX"SrchAttributes(0).Value = FalseoReplace.SetSearchAttributes(SrchAt tributes())Если это так, то что запивывать вместо XXX? Код:SrchAttributes(0).Name = "TextTable" не срабатывает - все равно офис зависает намертво, приходится убивать процесс.Подскажите, кто знает. Может есть другой способ либо игнорировать Таблицы в ЭТОМ поиске и замене, или же удалять пустые абзацы и в Таблице.Спасибо