Кажется, что код в моем предыдущем ответе не рассматривает горизонтальные линии, созданные в более ранней версии Word, как фигуры. Так что он не входит в цикл в первую очередь, так что нет вопроса об удалении этих строк. Однако я предлагаю другое решение. Попробуй. Однако сначала сделайте резервную копию вашего документа.
Преобразуйте этот документ в последний формат docx или docm, предварительно сохранив версию Office 2013/2016. Не работайте в режиме совместимости, в противном случае предложенная ниже опция может быть недоступна.
- На вкладке Главная лента Перейти к поиску -> Расширенный поиск
- Выпадающий Специальный и выберите Графика
- Найти, какое текстовое поле должно содержать ^ g
- Перейдите на «Заменить» и ничего не вводите и нажмите «Заменить» (чтобы заменить каждый случай) или «Заменить все», чтобы очистить все за один раз.
Осторожно - это может даже заменить любую другую графику. Так что будьте осторожны и протестируйте его сначала на своем документе перед внедрением.