Wordové makrá mimo záznamníka makier: Office 2016, kurz makier 365/2019 a užitočné príklady

Použiteľnosť: Word 365, 2019, 2016; Operačné systémy Windows a MAC OS X.

Tu je otázka od čitateľa:

Som učiteľ zvyčajne používam Word 2019 na písanie svojich dokumentov. Často potrebujem zmeniť písmo a veľkosť odsekov dokumentu. Existuje spôsob, ako automatizovať prácu s makrami, aby som mohol upraviť odsek dokumentu jediným kliknutím? Som si istý, že mi to ušetrí pár hodín týždenne, ktoré rád investujem do iných úloh.

dakujem za otazku. Kľúčovou výhodou makier je, že vám umožňujú automatizovať vaše úlohy v aplikáciách balíka Microsoft Office. Makrá môžu byť buď zaznamenané, alebo manuálne kódované pomocou Visual Basic for Applications (VBA). Word dodáva záznam makier, ktorý vám umožňuje vyvíjať automatizačné skripty bez kódovania. Ak s automatizáciou len začínate, môže to byť dosť dobré riešenie. To znamená, že s trochou znalostí jazyka VBA môžete písať efektívne a výkonné makrá.

Povolenie karty vývojára v programe Word

Ak nevidíte kartu Vývojár na páse s nástrojmi Microsoft Word, budete musieť nastaviť vývojové prostredie makier.

• Otvorte nový dokument programu Word. V prípade, že by ste chceli pracovať na existujúcom súbore, pred vykonaním akýchkoľvek zmien sa uistite, že máte kópiu na zálohovanie.
• Teraz pokračujte a zviditeľnite ponuku vývojára na páse s nástrojmi .

Nahrávanie wordového makra – praktický príklad

• Teraz prejdite na novo pridanú kartu Vývojár .
• Prejdite do skupiny tlačidiel Kód .

• Stlačením tlačidla Record Macro (Nahrať makro) vyvoláte funkciu záznamu makra.

• Definujte zmysluplný názov pre svoje makro. Poznámka: Keďže názov, ktorý zadáte, bude použitý v automaticky vytvorenom kóde VBA, uistite sa, že v názve makra nie sú žiadne medzery.

•  Poznámka: Aj keď je možné priradiť makrá k tlačidlám , pre jednoduchosť spustíme makro manuálne cez kartu Zobraziť alebo kartu Vývojár.

• Vykonajte postupnosť krokov, ktoré chcete zaznamenať. V tomto prípade si zaznamenáte nasledujúce kroky:
  • Vyberte konkrétny odsek v dokumente.
  • Prejdite na kartu Domov .
  • Nastavte písmo na Times New Roman.
  • Nastavte Veľkosť písma na 16.
  • Vycentrujte text stlačením Ctrl + E.
• Po dokončení sa vráťte na kartu Vývojár a stlačte Zastaviť nahrávanie .
• Teraz sa pozrime na automaticky generovaný kód VBA. Stlačte Makrá a potom zvýraznite Automatický formát makra a stlačte Upraviť .

• Zatvorte editor VBA.

Uložte svoju prácu v šablóne s povolenou funkciou Word Macro

• Kliknite na Súbor a potom na Uložiť ako .
• V dialógovom okne Uložiť ako na pravej strane určite miesto uloženia a zadajte zmysluplný názov zošita.

• Ako typ dokumentu vyberte dokument Word s povoleným makrom. Poznámka: Váš dokument programu Word sa uloží s príponou .docm.
• Stlačte tlačidlo Uložiť .

Vykonáva sa vaše makro

• Otvorte dokument programu Word.
• Vyberte odsek, ktorý chcete automaticky formátovať. Ako príklad uvádzam odsek, ktorý som si vybral:

• Prejdite na kartu Zobraziť .
• Stlačte tlačidlo Makrá .
• Vyberte makro automatického formátu
• Stlačiť Spustiť – toto aplikuje makro na vybraný odsek.
• Voi'la, pekný výsledok!

Priradenie makra k tlačidlám alebo klávesovým skratkám

Poznámka: Toto je voliteľný krok, o ktorý by ste sa mali pokúsiť po tom, ako ste postupovali podľa návodu na nahrávanie makra vyššie.

OK, zatiaľ nám fungujú základy makra. Teraz je čas trochu vylepšiť použiteľnosť makier v dokumente Word. Dovoľte mi ukázať vám, ako môžete priradiť svoje makro k tlačidlu rýchleho prístupu, aby ste ho mohli jednoduchšie spustiť.

• Kliknite pravým tlačidlom myši na pás s nástrojmi a vyberte možnosť Prispôsobiť panel s nástrojmi Rýchly prístup.
• Zobrazí sa dialógové okno Možnosti programu Word .
• V rozbaľovacej ponuke Vybrať príkazy z vyberte možnosť Makrá.
• Zvýraznite svoje makro a stlačte tlačidlo Pridať>> , čím pridáte odkaz na svoje makro na panel s nástrojmi Rýchly prístup .

• Kliknutím na tlačidlo Upraviť… definujte vhodnú ikonu pre vaše makro.
• Definujte zobrazovaný názov pre vaše tlačidlo.
• Stlačte OK .
• Teraz môžete spustiť svoje makro z panela s nástrojmi Rýchly prístup tesne nad pásom s nástrojmi.

Poznámka: Svoje makro Word môžete priradiť nielen k tlačidlám rýchleho prístupu, ale aj k tlačidlám príkazov zabudovaným vo vašom dokumente a špecifickým vlastným klávesovým skratkám.

Vytváranie makier programu Word pomocou jazyka VBA

S niektorými jednoduchými schopnosťami kódovania Visual Basic for Applications môžeme upravovať makrá a písať programy na automatizáciu rôznych druhov prác pomocou VBA.

Poznámka na okraj: FYI – niektoré aplikácie balíka Microsoft Office, ako napríklad Powerpoint a Outlook, nemajú vstavané záznamníky makier. Preto je písanie VBA povinné pre písanie makier Powerpoint a automatizáciu programu Outlook.

• Ak chcete upraviť makro, kliknite na  kartu Vývojár  a v možnosti kódu vyberte Makrá .
• Kliknite na makro a vyberte možnosť  Upraviť .
• Otvorí sa editor Visual Basic for applications.
• Predpokladajme, že chceme ručne upraviť Makro, ktoré sme zaznamenali v predchádzajúcom kroku, aby Word nenastavil len Veľkosť, písmo a zarovnanie odseku, ale aj farbu.
• Nastavenie farby sekcie sa dosiahne pomocou nasledujúceho príkazu VBA:

[code] Selection.Font.Color [/code]

• V našom prípade ho budeme chcieť nastaviť na náhodnú modrú, takže k nášmu zaznamenanému makru pripojíme nasledujúci úryvok:

[code] Selection.Font.Color = 16737792[/code]

• Váš kód VBA by mal vyzerať takto:

• V editore VBA stlačte Súbor a potom Uložiť .
• Vráťte sa do dokumentu, spustite makro na odseku a sledujte zmenu farby písma.

• Voi'la!

Užitočný príklad makra Word, ktorý môžete napísať

Od zverejnenia tohto návodu mnohí čitatelia požiadali o podrobnejšie príklady makier programu Word. Tento zoznam obsahuje najčastejšie úlohy, ktoré môžete automatizovať pomocou jazyka Visual Basic v programe Word. Ideme na to:

Vytvoriť a uložiť nový dokument

Sub CreateNewDoc()
'This small snippet first creates a new document, then it checks whether a document with the same name already exists before saving.
Dim myDoc As New Document
Dim filePath As String

'Modify your file path as needed
filePath = "C:\MyNewDoc.docx"

Set myDoc = Documents.Add
With myDoc
If Dir(filePath) = "" Then
.SaveAs2 (filePath)
Else

'You have already an existing document

MsgBox ("Please use a different file name")
End If
End With

myDoc.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Poznámka: Pri vytváraní nových dokumentov môžete zadať šablónu (súbory .dotm/.dotx), ktorú chcete použiť. Šablóny sú zvyčajne uložené v: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Otvorte dokument programu Word pomocou jazyka VBA

Sub OpenDoc()
'This code checks whether your document exists and then opens it
filePath = "C:\MyNewDoc.docx"

If Dir(filePath) = "" Then
MsgBox ("file doesn't exist")
Else
Documents.Open (filePath)
End If

End Sub

Zatvorenie jedného/všetkých otvorených dokumentov

Sub CloseDoc()

'This code closes a specific document
filePath = "C:\MyNewDoc.docx"
Documents(filePath).Close SaveChanges:=wdPromptToSaveChanges
End Sub

Sub CloseAllDocs()
'This code closes all opened documents in your computer
Documents.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Uloženie Wordu ako PDF

Tu je návod, ako jednoducho zautomatizovať ukladanie dokumentov programu Word ako súborov PDF.

Sub SaveAsPdf()
'This code saves a word document in a PDF format
FileName = Left(CStr(ActiveDocument.Name), Len(CStr(ActiveDocument.Name)) - 5)
ActiveDocument.SaveAs2 FileName:="c:\" + FileName + ".pdf", FileFormat:=wdFormatPDF

End Sub

Vkladanie hlavičky a päty

Tento kód nastavuje hlavičku a pätu prvej strany dokumentu programu Word.

Sub InsertHeaderFooterFirstPage()
Dim myDoc As Document
Dim headerText As String
Dim footerText As String

Set myDoc = ActiveDocument
'Replace the header and footer text as needed
headerText = "This document was written by you"
footerText = "All rights reserved to you"

With myDoc.Sections(1)
'We first ensure that we can set different header and footer texts
.PageSetup.DifferentFirstPageHeaderFooter = True
'Setting the header and footer texts
.Headers(wdHeaderFooterFirstPage).Range.Text = headerText
.Footers(wdHeaderFooterFirstPage).Range.Text = footerText

End With

End Sub

Ďalšie nápady na makro Word

Tu je niekoľko ďalších nápadov, ktoré zverejníme v nadchádzajúcej budúcnosti.

1. Nájsť a nahradiť (metóda vykonania)
2. Vložiť odsek (pred a po výbere)
3. Tlač dokumentov programovo
4. Práca s tabuľkami

Týmto sa končí náš dnešný tutoriál. Ako ste práve videli, so záznamníkom makier Word a makrami VBA vo Worde sa dá urobiť veľa. V prípade, že hľadáte konkrétnejšiu pomoc, ktorá presahuje rámec tohto návodu, kontaktujte nás prostredníctvom nášho kontaktného formulára .