Столкнулся с такой проблемой в Word'e как неубираемая полоса. Искал решения некоторое время и кое-как убрал в нескольких документах эту злощастную линию. А тут нашёл статью, в которой описывается создание макроса.
Как убрать неудаляемую полоску в MS Word Если Вы столкнулись с такой ситуацией, когда работая в Ворде обнаружилась полоска в виде линии с "мистическими" свойствами, тогда читаем далее эту инструкцию.
На самом деле это отнюдь не мистика и не глюк, а создание границ у абзаца, которое наиболее часто используется для подчеркивания абзаца. Такая линия не выделяется как графический объект. При попытке удалить клавишами Del или Backspace она может перескакивать на другое место на странице. Тут дело в том, что несколько абзацев могут иметь подобный стиль с подчеркиванием нижней границы.
Избавимся от такой линии. Выделим абзац, который находится выше этой линии, или весь документ, если в текстовом файле несколько таких линий. Затем заходим через верхнее меню редактора Word 2003 в "Формат", выбераем пункт "Границы и заливка..." На вкладке "Граница" открывшегося окна выбираем тип - "нет" и нажимаем на кнопку ОК. В текстовом редакторе MS Word 2007 чтобы открылось окно "Границы и заливка", надо перейти в меню "Разметка страницы" и нажать на кнопку "Границы страниц".
После проделанных действий полоска должна исчезнуть.
Существует также способ убирания этой полоски и других границ абзаца для всего документа с использованием макроса. Таким образом можно автоматизировать данный процесс для других документов в будущем.
В версии 2003 Word'а заходим в меню "Сервис" и в дополнительном списке пункта меню "Макрос" выбираем команду "Макросы", в 2007-м Word'е в меню "Вид" нажимаем на кнопку "Макросы". Откроется диалоговое окно, в котором вам нужно ввести имя вашего макроса.
Нажмите кнопку Создать (Create). Вы попадете в окно редактора Microsoft Visual Basic.
Код макроса:
Код: Sub Removing_lines()
' Макрос на удаление неудаляемой полоски
With ActiveDocument.Paragraphs
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
End With
End Sub