Word makronaredbe izvan snimača makronaredbi: Office 2016, 365 / 2019 vodič za makronaredbe i korisni primjeri

Primjenjivost: Word 365, 2019, 2016; Windows i MAC OS X operativni sustavi.

Evo pitanja čitatelja:

Ja sam učitelj i obično koristim Word 2019 za pisanje dokumenata. Često moram promijeniti font i veličinu odlomaka dokumenta. Postoji li način da automatiziram svoj rad s makronaredbama, tako da mogu izmijeniti odlomak dokumenta jednim klikom? Siguran sam da će mi to uštedjeti nekoliko sati tjedno, koje ću rado uložiti u druge zadatke.

Hvala na pitanju. Ključna prednost makronaredbi je ta što vam omogućuju automatizaciju zadataka u aplikacijama Microsoft Officea. Makronaredbe se mogu snimiti ili ručno kodirati pomoću Visual Basica za aplikacije (VBA). Word isporučuje Makro snimač koji vam omogućuje razvoj skripti za automatizaciju bez kodiranja. Ako tek počinjete s automatizacijom, ovo bi moglo biti dovoljno dobro rješenje. Uz to, uz malo VBA znanja, možete napisati učinkovite i moćne makronaredbe.

Omogućavanje kartice programera u Wordu

Ako ne vidite karticu Razvojni programer na vrpci Microsoft Worda, morat ćete postaviti razvojno okruženje makronaredbe.

• Otvorite novi Word dokument. U slučaju da želite raditi na postojećoj datoteci, prije bilo kakvih promjena provjerite imate li kopiju za sigurnosnu kopiju.
• Sada, samo naprijed i učinite izbornik programera vidljivim na vrpci .

Snimanje Word makronaredbe – praktičan primjer

• Sada pritisnite novododanu karticu Developer .
• Idite na grupu gumba Kod .

• Pritisnite gumb Snimi makro da biste pokrenuli funkciju snimanja makronaredbi.

• Definirajte smisleno ime za svoju makronaredbu. Napomena: Budući da će se ime koje navedete koristiti u automatski kreiranom VBA kodu, pazite da nema razmaka u nazivu makronaredbe.

•  Napomena: Iako je moguće dodijeliti makronaredbe gumbima , radi jednostavnosti pokrenut ćemo makronaredbe ručno putem kartice Prikaz ili kartica Razvojni programer.

• Izvršite slijed koraka koji želite snimiti. U tom slučaju zabilježit ćete sljedeće korake:
  • Odaberite određeni odlomak u svom dokumentu.
  • Idite na karticu Početna .
  • Postavite font na Times New Roman.
  • Postavite veličinu fonta na 16.
  • Centrirajte svoj tekst pritiskom na Ctrl +E.
• Kada završite, vratite se na karticu Razvojni programer i pritisnite Zaustavi snimanje .
• Sada pogledajmo automatski generirani VBA kod. Pritisnite makronaredbe , a zatim označite makronaredbu automatskog oblikovanja i pritisnite Uredi .

• Zatvorite VBA Editor.

Spremite svoj rad u predlošku s omogućenom Word makronaredbom

• Pritisnite Datoteka , a zatim Spremi kao .
• U dijaloškom okviru Spremi kao s desne strane odredite mjesto za spremanje i navedite smisleno ime svojoj radnoj knjizi.

• Odaberite Wordov dokument s omogućenim makronaredbama kao vrstu dokumenta. Napomena: Vaš Word dokument bit će spremljen sa sufiksom .docm.
• Pritisnite gumb za spremanje .

Izvršavanje vaše makronaredbe

• Otvorite svoj Word dokument.
• Odaberite odlomak koji želite automatski formatirati. Samo kao primjer, evo paragrafa koji sam odabrao:

• Idite na karticu Pogled .
• Pritisnite gumb Macros .
• Odaberite makronaredbu za automatsko oblikovanje
• Pritisnite Run – ovo će primijeniti makronaredbu na odabrani odlomak.
• Voi'la, dobar rezultat!

  

Dodjeljivanje makronaredbe gumbima ili tipkovnim prečacima

Napomena: Ovo je neobavezni korak koji biste trebali pokušati nakon što ste slijedili gornji vodič za snimanje makronaredbi.

U redu, do sada smo radili naše osnove makroa. Sada je vrijeme da malo poboljšamo upotrebljivost makronaredbi u Word dokumentu. Dopustite mi da vam pokažem kako svoju makronaredbu možete povezati s gumbom za brzi pristup kako biste je lakše pokrenuli.

• Desnom tipkom miša kliknite vrpcu i odaberite Prilagodi alatnu traku za brzi pristup.
• Pojavit će se dijaloški okvir Word Options .
• U padajućem izborniku Odaberite naredbe iz odaberite Makronaredbe.
• Označite svoju makronaredbu i pritisnite gumb Dodaj>> za dodavanje prečaca za svoju makronaredbu na alatnu traku za brzi pristup .

• Pritisnite gumb Izmijeni… kako biste definirali odgovarajuću ikonu za svoj makro.
• Definirajte naziv za prikaz za svoj gumb.
• Pritisnite OK .
• Sada možete pokrenuti makronaredbu s alatne trake za brzi pristup, neposredno iznad vrpce.

Napomena: svoj Word makronaredbu možete povezati ne samo s gumbima za brzi pristup nego i s gumbima za naredbe ugrađenim u vaš dokument i određenim prilagođenim tipkovničkim prečacima.

Kreiranje Word makronaredbi pomoću VBA

Uz neke jednostavne vještine kodiranja u Visual Basicu za aplikacije možemo uređivati ​​makronaredbe i pisati programe za automatizaciju raznih vrsta radova pomoću VBA.

Na stranu Napomena: FYI – neke od Microsoft Office aplikacija, kao što su Powerpoint i Outlook, nemaju ugrađene snimače makronaredbi. Stoga je pisanje VBA obavezno za pisanje Powerpoint makronaredbi i automatizaciju Outlooka.

• Da biste uredili makronaredbu, kliknite  karticu Developer  i odaberite Makronaredbe u opciji koda.
• Kliknite na makro i odaberite  Uredi .
• Otvorit će se uređivač programa Visual Basic za aplikacije.
• Pretpostavimo da želimo ručno urediti makronaredbu koju smo snimili u prethodnom koraku, tako da Word ne samo da postavi veličinu, font i poravnanje odlomka, već i boju.
• Postavljanje boje sekcije postiže se pomoću sljedeće VBA naredbe:

[kod] Odabir.Font.Boja [/code]

• U našem slučaju, željet ćemo ga postaviti na nasumično plavu boju, tako da ćemo dodati sljedeći isječak našoj snimljenoj makronaredbi:

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

• Evo kako bi vaš VBA kod trebao izgledati:

• U VBA Editoru pritisnite Datoteka , a zatim Spremi .
• Vratite se na dokument, pokrenite makronaredbu na odlomku i promatrajte promjenu boje fonta.

• Voi'la!

Koristan Word Macro primjer koji možete napisati

Od objavljivanja ovog vodiča, mnogi čitatelji tražili su detaljnije primjere Word makronaredbi. Ovaj popis pokriva najčešće zadatke koje možete automatizirati pomoću Visual Basica u Wordu. Idemo:

Stvorite i spremite novi 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

Napomena: Prilikom izrade novih dokumenata, možete odrediti predložak (.dotm/.dotx datoteke) koji želite koristiti. Predlošci se obično pohranjuju na: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Otvorite Word dokument pomoću 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

Zatvaranje jednog/svih otvorenih dokumenata

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

Spremanje Worda kao PDF-a

Evo kako jednostavno automatizirati spremanje Word dokumenata kao PDF datoteka.

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

Umetanje zaglavlja i podnožja

Ovaj kod postavlja zaglavlje i podnožje prve stranice vašeg Word dokumenta.

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

Dodatne ideje Word makroa

Evo još nekoliko ideja koje ćemo objaviti u nadolazećoj budućnosti.

1. Pronađi i zamijeni (metoda izvršenja)
2. Umetni odlomak (prije i poslije odabira)
3. Programski ispis dokumenata
4. Rad sa tablicama

Ovim je završen naš današnji vodič. Kao što ste upravo vidjeli, ima puno toga za napraviti s Word makro snimačem i VBA makronaredbama u Wordu. U slučaju da tražite konkretniju pomoć koja nadilazi opseg ovog vodiča, ljubazno nas kontaktirajte putem našeg obrasca za kontakt .