Používáte v Outlooku rychlou odpověď (CTRL+R) a potřebujete v ní změnit jazyk kontroly gramatiky? Taková možnost je pouze na kartě Revize > Jazyk, která je vidět ale až po otevření zprávy v novém okně. Existuje však způsob, jak to obejít, a to pomocí makra uvedeného níže. Pokud vám návod pomohl, staňte se fanoušky na Facebooku a doporučte tyto stránky vašim známým, může se jim také hodit.

Tvorba makra

Musíme si vytvořit makro pro změnu jazyka v rychlé odpovědi, které budeme spouštět např. ikonkou. Vyvoláme tedy prostředí pro programování VBA (visual basic for application) , používám pro to klávesovou zkratku Alt + F11.

Zde zvolíme vytvoření nového makra (modulu) dle obrázku, použijte pravou myš a založte nový „modul“.

Outlook nový modul

Outlook nový modul

Do textového prostoru tzv. modulu, který se vytvoří, vložíme následující kód (můžete jej přímo odsud zkopírovat).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub raonaset_language(language As Integer)
    Dim myContent As Word.Document 
    If TypeName(Application.ActiveWindow) = "Explorer" Then
        Set myContent = Application.ActiveExplorer.ActiveInlineResponseWordEditor
    End If    
    If TypeName(Application.ActiveWindow) = "Inspector" Then
        Dim myMail As Outlook.MailItem
        Set myMail = Application.ActiveInspector.CurrentItem
        Set myContent = Application.ActiveInspector.WordEditor
    End If  
    myContent.Content.LanguageID = language
    myContent.Content.GetSpellingSuggestions 
End Sub
 
Sub raonaset_CZ()
    raonaset_language (1029)
End Sub
 
Sub raonaset_EN()
    raonaset_language (1033)
End Sub
 
Sub raonaset_EN_GB()
    raonaset_language (2057)
End Sub

V kódu vidíme makro pro změnu kontroly jazyka, který využije na pomoc Word. Aby makro fungovalo, musíme aktivovat podporu knihovny Word, což provedeme v okně VBA editoru nabídkou Tools > References a najdeme Microsoft Word 15.0 Object Library. Tu zaškrtneme, mělo by to pak vypadat jako na obrázku níže. Číslo 15.0 je určeno pro verzi 2013, použijte jiné uvedené v případě odlišné verze.

Knihovna Word VBA

Knihovna Word VBA

Nyní už stačí jen kód uložit ikonou disketky a prostředí VBA zavřít.

Povolení maker

Aby makro fungovalo i při příštím spuštění Outlooku, nastavte v zabezpečení maker upozornění nebo trvalé povolení. Použijte v Outlooku nabídku Soubor > Možnosti > Centrum zabezpečení > Nastavení centra zabezpečení a následné Povolte makra nebo Zobrazovat oznámení pro všechna makra, aby se vždy Outlook ptal na povolení.

Centrum zabezpečení

Centrum zabezpečení

Potvrzení povolení maker

Potvrzení povolení maker

Tím bychom měli vše nastaveno. Pro spuštění přepnutí jazyka v rychlé odpovědi musíme stát myší v těle odpovědi a zavolat makro pro konkrétní jazyk. V kódu jsem použil jazyk češtinu, angličtinu (USA) a angličtinu (GB). Pro přidání dalších jazyků je třeba znát jeho ID, které najdete v této tabulce. Mezi nimi přepínáme zvolením konkrétního makra např. zkratkou Alt + F8. Hezčí by možná bylo umístit si ikonu na horní panely, viz. dále.

Vytvoření tlačítek

Použijeme úpravu pásu karet. Zvolte Soubor > Možnosti > Přizpůsobit pás karet. Nejprve v pravé části vytvoříme na kartě Domů novou skupinu. Rozbalte kartu Domů a volbou Nová skupina umístěte na konec karty skupinu, kterou si pojmenujte např. Jazyk. V levé části nabídky vyberte kategorii Makra a přidejte si je do pravé části do této nové skupiny. Jednotlivé ikonky pro jazyky můžete přejmenovat a změnit obrázek označením a tlačítkem Přejmenovat. Výsledek může vypadat jako na obrázku níže.

Vlastní tlačítka na pásu karet

Vlastní tlačítka na pásu karet

Tlačítka pro změnu jazyka

Tlačítka pro změnu jazyka

Zanechte odpověď

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *