Zawartość:
Sposób 1: Granice tekstu
Szybkie wyróżnienie końcówki słowa w Word w dowolnej aktualnej wersji można zrealizować za pomocą narzędzia "Granice i wypełnienie". Należy z niego korzystać zgodnie z następującą instrukcją:
- Przejdź do zakładki "Strona główna", rozwiń podmenu z granicami i kliknij na "Granice i wypełnienie…", wcześniej wyróżniając końcówkę słowa.
- W bloku "Typ" wybierz opcję "Ramka". Aby wyróżnić końcówkę, wystarczy tylko wskazać kolor i grubość linii – pozostałe parametry nie muszą być zmieniane.
- Można wprowadzać zmiany w tekście — wyróżniona końcówka pozostanie na miejscu.



Sposób 2: Wstawianie figury
Alternatywna metoda, którą można wykorzystać przy jednorazowym wyróżnieniu końcówek, polega na ręcznym dodaniu figury.Zakończenie dodawane jest według następującego algorytmu:
- Otwórz sekcję "Wstawianie", rozwiń punkt "Figury", wybierz "Prostokąt" na górze listy.
- Umieść zakończenie w prostokącie.
- Początkowo prostokąt jest wypełniony jednolitym niebieskim kolorem – aby to zmienić, kliknij prawym przyciskiem myszy na figurę i ustaw wartość "Brak wypełnienia" w bloku "Wypełnienie" oraz "Czarny" w bloku "Kontur".



WaŜne! Wyróżnianie zakończeń w ten sposób można przeprowadzać tylko po ostatecznej edycji tekstu – przy wprowadzaniu jakichkolwiek zmian figura nie podąży za literami, a pozostanie w miejscu.
Sposób 3: Użycie makra
Przy pracy z dużym tekstem procedurę rysowania zakończeń można zautomatyzować za pomocą specjalnego makra – samo stworzy figurę (jak w Sposobie 2). Makro dodaje się w Wordzie według prostego algorytmu:
- Przejdź do zakładki "Widok", otwórz punkt "Makra", kliknij na odpowiednią linię. Dla wygody w przyszłości można użyć kombinacji klawiszy Alt + F8.
- Wprowadź dowolną nazwę przyszłego zestawu poleceń, kliknij "Utwórz".
- Zaznacz cały tekst w oknie kombinacją klawiszy Ctrl + A, a następnie go usuń.Skopiuj poniższy kod, wklej go i naciśnij przycisk "Zapisz".
Option Explicit
Enum LexicalUnits
luEndfix = 3
End Enum'Wstaw zakończenie
Sub zakończenie()
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 'Zakończenie
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 - Zaznacz zakończenie słowa, wywołaj okno makr kombinacją Alt + F8, wybierz opcję "Zakończenie", naciśnij "Wykonaj" — standardowy prostokątny kształt z konturem zostanie automatycznie narysowany.




Jeśli w sekcji "Widok" nie ma pozycji "Makra", naciśnij "Plik", otwórz "Opcje", przejdź do "Ogólne" i znajdź blok "Podstawowe parametry pracy". Aktywuj opcję "Pokazuj kartę "Deweloper" na wstążce", znajdź blok "Makra" w nowo pojawionej karcie "Deweloper" na wstążce Word.
Czytaj także: Jak zrobić makro w Wordzie