Ističemo završetke reči u Wordu

Metod 1: Granice teksta

Brzo isticanje završetka reči u Word u bilo kojoj aktuelnoj verziji može se izvršiti pomoću alata "Granice i popuna". Koristiti ga treba prema sledećim uputstvima:

1. Pređite na karticu "Početna", otvorite podmeni sa granicama i kliknite na "Granice i popuna…", prethodno istaknuvši završetak reči.
2. U okviru "Tip" izaberite opciju "Okvir". Da biste istakli završetak, potrebno je samo odabrati boju i debljinu linije – ostale parametre ne treba menjati.
3. U tekst se mogu unositi izmene — istaknuti završetak će ostati na mestu.

Metod 2: Umetanje figure

Alternativna metoda koja se može koristiti za jednokratno isticanje završetaka podrazumeva ručno dodavanje figure.Završetak se dodaje prema sledećem algoritmu:

1. Otvorite odeljak "Umetanje", proširite stavku "Oblici", izaberite "Pravougaonik" na vrhu liste.
2. Završetak stavite u pravougaonik.
3. Prvobitno je pravougaonik ispunjen čvrstom plavom bojom – da biste to promenili, kliknite desnim tasterom miša na figuru i postavite vrednost "Bez ispune" u bloku "Ispuna" i "Crna" u bloku "Kontura".

Važno! Ovaj metod označavanja završetaka može se koristiti samo nakon što je tekst konačno uređen – prilikom bilo kakvih izmena figura neće pratiti slova, već će ostati na mestu.

Metod 3: Korišćenje makroa

Kada radite sa velikim tekstom, proceduru crtanja završetaka možete automatizovati pomoću posebnog makroa – on će sam kreirati figuru (kao u Metodu 2). Makro se dodaje u Word prema jednostavnom algoritmu:

1. Pređite na karticu "Prikaz", otvorite stavku "Makroi", kliknite na odgovarajući red. Za praktičnost u budućnosti možete koristiti kombinaciju tastera Alt + F8.
2. Unesite bilo koje ime budućeg skupa komandi, kliknite na "Kreirati".
3. Označite sav tekst u prozoru kombinacijom tastera Ctrl + A, obrišite ga.Копирајте представљени код испод, налепите га и кликните на дугме "Сачувај".

   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.

Читајте такође: Како направити макро у Ворду