Быстро выделить окончание у слова в Word в любой актуальной версии можно с помощью инструмента . Пользоваться им необходимо по следующей инструкции:
- Переместитесь во вкладку , раскройте подменю с границами и нажмите на , предварительно выделив окончание у слова.
- В блоке выберите вариант . Для выделения окончания останется лишь указать цвет и толщину линии – остальные параметры изменять не нужно.
- В текст можно вносить изменения — выделенное окончание останется на месте.
Способ 2: Вставка фигуры
Альтернативный метод, который можно использовать при разовом выделении окончаний, подразумевает ручное добавление фигуры. Окончание добавляется по следующему алгоритму:
- Откройте раздел , разверните пункт , выберите в верхней части списка.
- Заключите окончание в прямоугольник.
- Изначально прямоугольник заливается сплошным голубым цветом – чтобы изменить это, кликните по фигуре правой кнопкой мыши и установите значение в блоке и в блоке .
Выделять окончания таким методом можно только после того, как текст будет окончательно отредактирован – при внесении любых изменений фигура не последует за буквами, а останется на месте.
Способ 3: Использование макроса
При работе с большим текстом процедуру рисования окончаний можно автоматизировать с помощью специального макроса – он сам будет создавать фигуру (как в Способе 2). Добавляется макрос в Word по простому алгоритму:
- Перейдите во вкладку , откройте пункт , нажмите на соответствующую строку. Для удобства в дальнейшем можно использовать комбинацию клавиш .
- Введите любое имя будущего набора команд, нажмите на .
- Выделите весь текст в окне комбинацией клавиш , удалите его. Скопируйте представленный ниже код, вставьте его и нажмите на кнопку .
Option Explicit
Enum LexicalUnits
luEndfix = 3
End Enum‘Вставить окончание
Sub окончание()
Call AddLexicalUnit(luEndfix)
End SubSub 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 - Выделите окончание у слова, вызовите окно макросов комбинацией , выберите вариант , нажмите на — стандартная прямоугольная рамка с контуром нарисуется автоматически.
Если в разделе нет пункта , нажмите на , откройте , перейдите в и найдите блок . Активируйте пункт , найдите блок в появившейся вкладке на ленте Word.
Мы рады, что смогли помочь Вам в решении проблемы.
Помимо этой статьи, на сайте еще 13047 полезных инструкций.
Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам. Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.