Jak automaticky přidat text do záhlaví dokumentu v aplikaci Microsoft Word pomocí VBA

Jak automaticky přidat text do záhlaví dokumentu v aplikaci Microsoft Word pomocí VBA

Záhlaví jsou skvělým místem pro představení dokumentu aplikace Word a také se snadno používají. Stačí dvakrát kliknout na záhlaví a napsat, že? I když je to snadné, stejně jako cokoli jiného, ​​může být tento úkol poněkud monotónní a nepříjemný, pokud musíte přidat stejné záhlaví pro více dokumentů za sebou.





VYUŽÍVÁNÍ VIDEA DNE

Pro tento scénář nebo možná jiné scénáře se VBA hodí. Pomocí VBA můžete napsat kus kódu, který automaticky přidá požadovaný text do záhlaví vašeho dokumentu.



Automatické přidávání textu do záhlaví dokumentu pomocí jazyka VBA ve Wordu

VBA nebo Visual Basic pro aplikace je integrovaná forma jazyka Visual Basic používaná v aplikacích Microsoft Office. VBA vám umožňuje psát kódy pro vytváření maker, což zase automatizuje úkoly, které byste jinak museli dělat ručně. VBA vám dokonce umožňuje vytvářet vlastní tlačítka a funkce pro Microsoft Word.





V tomto článku vytvoříme makro a napíšeme pro něj kód, který přidá vlastní text do záhlaví dokumentu. Záhlaví jsou užitečnou sekcí v dokumentech aplikace Word a ze záhlaví v aplikaci Microsoft Word můžete získat hodně .

Jako příklad vytvoříme kód, který přidá text Napsal a vydal MakeUseOf do hlavičky. Uděláme tento text tučným písmem a zarovnáme jej na střed dokumentu.



1. Přístup na kartu Vývojář

Prvním krokem při vytváření maker aplikace Word je přístup na kartu Vývojář z pásu karet. Tato karta je ve výchozím nastavení zakázána, protože makra jsou vyhrazena pro pokročilé uživatele. Stažená makra představují pro hackery snadný způsob, jak získat přístup k malwaru a nainstalovat jej do vašeho systému Microsoft se je rozhodl standardně blokovat .

S tím, co bylo řečeno, budete muset povolit kartu Vývojář z Možnosti. Samozřejmě, pokud jste již dříve používali makra, karta Vývojář již bude k dispozici, takže to není nutné opakovat. Pokud s makry a VBA v aplikacích Office pracujete poprvé, je dobré si přečíst našeho průvodce na jak začít používat makra ve Wordu .



Nastavení pásu karet Word
  1. V aplikaci Microsoft Word přejděte na Soubor Jídelní lístek.
  2. Vybrat Možnosti . Tím se otevře okno Možnosti aplikace Word.
  3. V Možnosti aplikace Word okno, vyberte Přizpůsobit pás karet .
  4. Vpravo pod Hlavní karty , přejděte dolů a zkontrolujte Vývojář .
  5. Klikněte OK .

Nyní uvidíte kartu Vývojář na pásu karet přímo mezi Zobrazit a Nápověda.

2. Vytvoření makra

Nyní je čas ušpinit si ruce makrem a nějakým kódem. Jakmile vytvoříte makro a napíšete pro něj kód, můžete mu přiřadit zkratku, abyste nemuseli pokaždé chodit do nabídky maker.



Tímto způsobem můžete dále zvýšit svou produktivitu, protože na klávesnici stisknete pouze kombinaci kláves a kouzlo se odehraje v zákulisí.

kolik dat využívá YouTube TV
Nabídka maker ve Wordu
  1. Přejít na Vývojář tab.
  2. Klikněte na Makra z Kód sekce.
  3. Zadejte název makra. My pojmenujeme naše muoHeading .
  4. Klikněte na Vytvořit .
Prázdné makro ve Wordu

Jakmile kliknete Vytvořit otevře se nové okno obsahující dva řádky kódu a informační řádek. Řádky Sub a End Sub označují začátek a konec kódu vašeho makra. Mezi dva řádky vložte níže uvedený kód:

Dim headerRange As Range 
Dim headerText As String 
 Set headerRange = ActiveDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range 
headerRange.Text = "Written and Published by MUO" 
headerRange.Font.Bold = True 
headerRange.ParagraphFormat.Alignment = wdAlignParagraphCenter

Příkaz Dim v tomto kódu deklaruje headerRange a text záhlaví proměnné jako a Rozsah a a Tětiva respektive. Dále, Soubor příkaz nastavuje headerRange proměnnou do záhlaví aktuálního aktivního dokumentu.

The Soubor příkaz nejprve přistupuje k aktuálnímu aktivnímu dokumentu, poté k jeho sekcím, poté k první položce a hlavičkám v ní. Nakonec přistoupí k primární hlavičce ve Wordu a poté ji nastaví jako a Rozsah .

Jakmile jsou tyto dva vyhlášeny, headerRange text je nastaven na požadovaný text. Na dalším řádku se písmo nastaví na tučné a na posledním řádku se nastaví zarovnání odstavce na střed. Parametry začínající na „wd“ označují, že parametr je výhradní pro Microsoft Word.

The Sub a End Sub kódy nejsou zahrnuty v tomto úryvku výše, protože byste měli vložit kód z úryvku mezi tyto dva. Váš konečný kód by měl vypadat jako na obrázku níže:

Makro pro vložení textu záhlaví pro Word

3. Použití makra

Jakmile nastavíte kód, jste připraveni makro použít. Není třeba to ukládat; vše, co zadáte do pracovního prostoru VBA, se okamžitě uloží. Nyní je čas nastavit zkratku pro makro a zjistit, zda funguje!

  1. Přejít na Soubor Jídelní lístek.
  2. Vybrat Možnosti .
  3. Vybrat Přizpůsobit pás karet .
  4. Klikněte na Přizpůsobit vedle Klávesové zkratky ve spodní části okna. Tím se otevře okno Přizpůsobit klávesnici.
  5. V Přizpůsobit klávesnici v okně přejděte dolů Kategorie seznam a vyberte Makra .
  6. V pravé nabídce vyberte své makro.
  7. Klikněte na textové pole pod, Stiskněte novou klávesovou zkratku .
  8. Zadejte kombinaci kláves na klávesnici. Je to dobrý nápad použít Ctrl , Všechno , a Posun ve stejnou dobu. Tímto způsobem se kombinace pravděpodobně již nebude používat. Budeme používat Všechno + Ctrl + Posun + H .
  9. Klikněte na a poté klikněte na OK .

Nyní je čas vidět kouzlo v práci. Stiskněte kombinaci kláves, kterou jste právě přiřadili svému makru na klávesnici. Doufejme, že text v záhlaví uvidíte! Odvážné a vycentrované! Pokud věci nejdou podle plánu, sledujte své kroky a zkontrolujte, zda v kódu nejsou chyby.

Kdykoli budete chtít změnit text, který kód přidá do vašeho nadpisu, stačí přejít do nabídky maker a upravit makro. Pokud jste zvědaví na výchozí zkratky Wordu, podívejte se na naše Cheat sheet pro klávesové zkratky aplikace Microsoft Word .

Automatizujte svůj pracovní postup

Je pravda, že přidání textu do záhlaví dokumentu ve Wordu vyžaduje malé úsilí, ale malé úsilí ve velkém množství může být monotónní, ne-li obtížné. Každopádně, pokud to můžete usnadnit a méně časově náročné, tak proč to neudělat?

VBA existuje, aby sloužilo takovým účelům. Pokud byste si přáli funkci Wordu, která by do záhlaví libovolného dokumentu automaticky přidala vlastní text, už si přát nemusíte. Pomocí jazyka VBA můžete vytvořit jakoukoli funkci, která podle vás Wordu chybí. Přidání textu do záhlaví dokumentu je jen nepatrným příkladem toho, čeho můžete dosáhnout pomocí jazyka VBA ve Wordu.

Nyní víte, jak napsat kód pro tento účel a přiřadit mu zkratku. Takže vše, co musíte udělat, je stisknout kombinaci kláves, sedět a pozorovat, jak za vás Word během milisekund dělá nudnou práci.