Jak vytvořit formulář v Microsoft Wordu, který automaticky skryje text při zaškrtnutí políčka?

Úvod

Pomocí událostních funkcí jazyka Visual Basic for Applications (VBA) můžete v dokumentu Word umožnit uživateli jedním kliknutím skrýt nebo zobrazit velké množství textu. V následujícím návodu si ukážeme, jak vytvořit jednoduchý formulář s zaškrtávacím políčkem, které po zaškrtnutí skryje předem určený text a po odškrtnutí jej opět zobrazí.

Kroky

Krok 1 – Vytvoření nového dokumentu

Otevřete Soubor → Nový a potvrďte výchozí nastavení kliknutím na OK. Přepněte na kartu Vývojář, kde najdete panel Ovládací prvky.

Krok 2 – Vložení ovládacích prvků

Vyberte požadované ovládací prvky (např. textové pole, rozbalovací seznam) a klikněte na ně. Word je automaticky přidá do dokumentu.

Krok 3 – Přidání zaškrtávacího políčka

V panelu Ovládací prvky klikněte na ikonu Zaškrtávací políčko. Umístěte jej do formuláře a pod něj napište text, který má být po zaškrtnutí skrytý.

Krok 4 – Vytvoření záložky

Označte text, který má být skrytý, a na kartě Vložení** klikněte na Záložka. Do pole Název zadejte TextToHide a potvrďte Přidat. Tímto pojmenujete část textu, aby ji mohl VBA kód snadno najít.

Krok 5 – Otevření editoru VBA

Pravým tlačítkem klikněte na zaškrtávací políčko a zvolte Zobrazit kód. Otevře se editor Visual Basic, kde napíšete potřebný program.

Krok 6 – Vložení kódu

Do otevřeného okna vložte následující makro. Kód kontroluje vlastnost Hidden písma v záložce TextToHide. Pokud je text již skrytý, kód jej zobrazí, a naopak.

Private Sub CheckBox1_Click()
    With Bookmarks("TextToHide").Range.Font
        .Hidden = Not .Hidden
    End With
End Sub

Krok 7 – Aktivace formuláře

Vraťte se do Wordu (kliknutím na ikonu Word na hlavním panelu) a na kartě Vývojář zapněte režim Design. Nyní můžete políčko otestovat – při zaškrtnutí se text skryje, při dalším kliknutí se opět zobrazí.