Как сделать и удалить сноску word
Ludddmillla 12/05/2011 Существует также способ убирания этой полоски и других границ абзаца для всего документа с использованием макроса. Таким образом можно автоматизировать данный процесс для других документов в будущем.
В версии 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
Вставьте код, приведенный выше, в окно редактора. Заметим, что в этом окне уже присутствуют строки Sub Macros() и End Sub, поэтому заменяем весь текст кода или вставляем лишь тот код, который находится между этими строками.
После закрытия редактора Microsoft VB, Вы вновь возвращаетесь в Microsoft Word. Чтобы задействовать данный код, заходим в «Макросы», выбираем по названию наш макрос и нажимаем на кнопку Выполнить.
