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

Содержание

Метод 1: Границы текста

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

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

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

В текст можно заносить конфигурации — выделенное окончание остается на месте.

Метод 2: Вставка фигуры

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

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

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

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

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

Метод 3: Внедрение макроса

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

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

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

Выделите весь текст в окне композицией кнопок 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

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

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

Источник: lumpics.ru