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

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

1. Переместитесь во вкладку , раскройте подменю с границами и нажмите на , предварительно выделив окончание у слова.
2. В блоке выберите вариант . Для выделения окончания останется лишь указать цвет и толщину линии – остальные параметры изменять не нужно.
3. В текст можно вносить изменения — выделенное окончание останется на месте.

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

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

1. Откройте раздел , разверните пункт , выберите в верхней части списка.
2. Заключите окончание в прямоугольник.
3. Изначально прямоугольник заливается сплошным голубым цветом – чтобы изменить это, кликните по фигуре правой кнопкой мыши и установите значение в блоке и в блоке .

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

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

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

1. Перейдите во вкладку , откройте пункт , нажмите на соответствующую строку. Для удобства в дальнейшем можно использовать комбинацию клавиш .
2. Введите любое имя будущего набора команд, нажмите на .
3. Выделите весь текст в окне комбинацией клавиш , удалите его. Скопируйте представленный ниже код, вставьте его и нажмите на кнопку .

   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. Выделите окончание у слова, вызовите окно макросов комбинацией , выберите вариант , нажмите на — стандартная прямоугольная рамка с контуром нарисуется автоматически.

Если в разделе нет пункта , нажмите на , откройте , перейдите в и найдите блок . Активируйте пункт , найдите блок в появившейся вкладке на ленте Word.

Мы рады, что смогли помочь Вам в решении проблемы.
Помимо этой статьи, на сайте еще 13047 полезных инструкций.
Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам. Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

Источник: starhit