Выделяем окончания слов в Word

Способ 1: Границы текста

Быстро выделить окончание у слова в Word в любой актуальной версии можно с помощью инструмента «Границы и заливка». Пользоваться им необходимо по следующей инструкции:

1. Переместитесь во вкладку «Главная», раскройте подменю с границами и нажмите на «Границы и заливка…», предварительно выделив окончание у слова.



2. В блоке «Тип» выберите вариант «Рамка». Для выделения окончания останется лишь указать цвет и толщину линии – остальные параметры изменять не нужно.



3. В текст можно вносить изменения — выделенное окончание останется на месте.

Способ 2: Вставка фигуры

Альтернативный метод, который можно использовать при разовом выделении окончаний, подразумевает ручное добавление фигуры. Окончание добавляется по следующему алгоритму:

1. Откройте раздел «Вставка», разверните пункт «Фигуры», выберите «Прямоугольник» в верхней части списка.



2. Заключите окончание в прямоугольник.



3. Изначально прямоугольник заливается сплошным голубым цветом – чтобы изменить это, кликните по фигуре правой кнопкой мыши и установите значение «Нет заливки» в блоке «Заливка» и «Чёрный» в блоке «Контур».



Важно! Выделять окончания таким методом можно только после того, как текст будет окончательно отредактирован – при внесении любых изменений фигура не последует за буквами, а останется на месте.

Способ 3: Использование макроса

При работе с большим текстом процедуру рисования окончаний можно автоматизировать с помощью специального макроса – он сам будет создавать фигуру (как в Способе 2). Добавляется макрос в Word по простому алгоритму:

1. Перейдите во вкладку «Вид», откройте пункт «Макросы», нажмите на соответствующую строку. Для удобства в дальнейшем можно использовать комбинацию клавиш Alt + F8.



2. Введите любое имя будущего набора команд, нажмите на «Создать».



3. Выделите весь текст в окне комбинацией клавиш Ctrl + A, удалите его. Скопируйте представленный ниже код, вставьте его и нажмите на кнопку «Сохранить».

   Option Explicit

   Enum LexicalUnits
   luEndfix = 3
   End Enum

   'Вставить окончание
   Sub окончание()
   Call AddLexicalUnit(luEndfix)
   End Sub

   Sub AddLexicalUnit(LexUnit As LexicalUnits)
Dim nL As Single, nT As Single, nW As Single, nH As Long
Const HEIGHT As Single = 3
' ActiveWindow.GetPoint 0, 0, 0, nH, Selection.Range
nL = Selection.Information(wdHorizontalPositionRelativeToPage)
nT = Selection.Information(wdVerticalPositionRelativeToPage) + 2
Selection.Collapse wdCollapseEnd
nW = Selection.Information(wdHorizontalPositionRelativeToPage) - nL
Select Case LexUnit
Case luEndfix 'Окончание
nH = Selection.Font.Size
With ActiveDocument.Shapes.AddShape(msoShapeRectangle, nL, nT, nW, CSng(nH))
.Fill.Visible = msoFalse
.Select
End With
End Select
Selection.ShapeRange.WrapFormat.Type = 3
End Sub



4. Выделите окончание у слова, вызовите окно макросов комбинацией Alt + F8, выберите вариант «Окончание», нажмите на «Выполнить» — стандартная прямоугольная рамка с контуром нарисуется автоматически.



Если в разделе «Вид» нет пункта «Макросы», нажмите на «Файл», откройте «Параметры», перейдите в «Основные» и найдите блок «Основные параметры работы». Активируйте пункт «Показывать вкладку «Разработчик» на ленте», найдите блок «Макросы» в появившейся вкладке «Разработчик» на ленте Word.

Читайте также: Как сделать макрос в Ворде