Jak vložit konkrétní text na kurzor při psaní zprávy v aplikaci Outlook? 

Předpokládejme, že máte nějaké konkrétní textové řetězce, které se často používají při vytváření e-mailové zprávy, takže byste chtěli vložit text na aktuální pozici kurzoru do těla pošty automaticky, aniž byste je museli znovu a znovu zadávat. V tomto článku budu hovořit o snadné metodě rychlého řešení tohoto úkolu.

Při psaní zprávy s kódem VBA vložte na kurzor konkrétní text nebo aktuální datum

Při psaní zprávy s kódem VBA vložte na kurzor konkrétní text nebo aktuální datum

Následující kód VBA vám pomůže vložit konkrétní textový řetězec nebo aktuální datum na pozici kurzoru, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:

Kód VBA: Vložte konkrétní text nebo aktuální datum na kurzor

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

Poznámka: Ve výše uvedeném kódu, ExtendOffice je konkrétní text, který chcete vložit, pokud potřebujete místo textového řetězce vložit aktuální datum, změňte prosím text v tomto skriptu Formát xSel.InsertBefore („ExtendOffice") na Formát xSel.InsertBefore (nyní „DD / MM / RRRR“).

3. Poté uložte a zavřete okno kódu, vytvořte nový e-mail a v okně zprávy klikněte na Přizpůsobte panel nástrojů Rychlý přístup rozevírací seznam a vyberte Více velení, viz screenshot:

4. V Možnosti aplikace Outlook V dialogovém okně proveďte následující operace:

(1.) Vyberte makra z Vyberte příkaz z rozevírací;

(2.) Klikněte na název makra, který jste vložili;

(3.) Poté klikněte na přidat tlačítko pro přidání tohoto makra do souboru Přizpůsobte panel nástrojů Rychlý přístup seznam.

5. A pak klikněte OK tlačítko pro zavření dialogového okna, nyní byla ikona makra vložena do Přizpůsobte panel nástrojů Rychlý přístup. Umístěte kurzor na místo, kam chcete vložit text, a poté klikněte na toto tlačítko makra, konkrétní text se vloží najednou, viz screenshot:

---

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy Pro: Dávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup