Zvýrazňujeme koncovky slov ve Wordu

Způsob 1: Okraje textu

Rychlé zvýraznění konce slova v Word v jakékoli aktuální verzi lze provést pomocí nástroje "Okraje a výplň". Používat ho je třeba podle následujícího návodu:

1. Přejděte na kartu "Domů", rozbalte podmenu s okraji a klikněte na "Okraje a výplň…", předtím zvýrazněte konec slova.
2. V bloku "Typ" vyberte možnost "Rámeček". Pro zvýraznění konce stačí pouze určit barvu a tloušťku čáry – ostatní parametry měnit není třeba.
3. Do textu lze provádět změny — zvýrazněný konec zůstane na místě.

Způsob 2: Vložení tvaru

Alternativní metoda, kterou lze použít při jednorázovém zvýraznění konců, zahrnuje ruční přidání tvaru.Konec se přidává podle následujícího algoritmu:

1. Otevřete sekci "Vložení", rozbalte položku "Tvary", vyberte "Obdélník" v horní části seznamu.
2. Zakončete konec v obdélníku.
3. Původně je obdélník vyplněn jednolitou modrou barvou – pro změnu klikněte na tvar pravým tlačítkem myši a nastavte hodnotu "Žádná výplň" v bloku "Výplň" a "Černá" v bloku "Obrys".

Důležité! Zvýraznění konců tímto způsobem je možné pouze po konečné úpravě textu – při provádění jakýchkoli změn se tvar nepohne s písmeny, ale zůstane na místě.

Způsob 3: Použití makra

Při práci s velkým textem lze proces kreslení konců automatizovat pomocí speciálního makra – to samo vytvoří tvar (jak ve Způsobu 2). Makro se přidává do Wordu podle jednoduchého algoritmu:

1. Přejděte na kartu "Zobrazení", otevřete položku "Makra", klikněte na odpovídající řádek. Pro pohodlí můžete v budoucnu použít klávesovou zkratku Alt + F8.
2. Zadejte libovolný název budoucího souboru příkazů, klikněte na "Vytvořit".
3. Vyberte celý text v okně pomocí klávesové zkratky Ctrl + A, a odstraňte ho.Zkopírujte níže uvedený kód, vložte ho a stiskněte tlačítko "Uložit".

   Option Explicit

   Enum LexicalUnits
   luEndfix = 3
   End Enum

   'Vložit koncovku
   Sub koncovka()
   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 'Koncovka
   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. Vyberte koncovku slova, vyvolejte okno makra kombinací Alt + F8, vyberte možnost "Koncovka", stiskněte "Provést" — standardní obdélníkový rámeček s konturou se automaticky nakreslí.

Pokud v sekci "Zobrazení" není položka "Makra", klikněte na "Soubor", otevřete "Možnosti", přejděte na "Obecné" a najděte blok "Hlavní parametry práce". Aktivujte položku "Zobrazit kartu "Vývojář" na pásu karet", najděte blok "Makra" na nově zobrazené kartě "Vývojář" na pásu karet Word.

Čtěte také: Jak vytvořit makro ve Wordu