Word makri onkraj snemalnika makrov: vadnica za makre za Office 2016, 365/2019 in uporabni primeri

Uporabnost: Word 365, 2019, 2016; Operacijski sistemi Windows in MAC OS X.

Tukaj je vprašanje bralca:

Sem učitelj, običajno uporabljam Word 2019 za pisanje svojih dokumentov. Pogosto moram spremeniti pisavo in velikost odstavkov dokumenta. Ali obstaja način za avtomatizacijo mojega dela z makri, tako da lahko spremenim odstavek dokumenta z enim klikom? Prepričan sem, da mi bo to prihranilo nekaj ur na teden, ki jih bom z veseljem vložil v druga opravila.

Hvala za vaše vprašanje. Ključna prednost makrov je, da vam omogočajo avtomatizacijo opravil v aplikacijah Microsoft Office. Makre je mogoče posneti ali ročno kodirati z uporabo Visual Basica za aplikacije (VBA). Word pošilja snemalnik makrov, ki vam omogoča razvoj skriptov za avtomatizacijo brez kodiranja. Če šele začenjate z avtomatizacijo, je to morda dovolj dobra rešitev. Kljub temu lahko z malo znanja VBA napišete učinkovite in zmogljive makre.

Omogočanje zavihka za razvijalce v Wordu

Če na traku Microsoft Word ne vidite zavihka Razvijalec, boste morali nastaviti razvojno okolje makrov.

• Odprite nov Wordov dokument. Če želite delati z obstoječo datoteko, se prepričajte, da imate kopijo za varnostno kopiranje, preden naredite kakršne koli spremembe.
• Zdaj pa nadaljujte in naredite meni za razvijalce viden na traku .

Snemanje Wordovega makra – praktičen primer

• Zdaj pritisnite na novo dodani zavihek Razvijalec .
• Pojdite v skupino gumbov za kodo .

• Pritisnite gumb za snemanje makrov , da prikličete funkcijo snemalnika makrov.

• Določite smiselno ime za svoj makro. Opomba: Ker bo ime, ki ga navedete, uporabljeno v samodejno ustvarjeni kodi VBA, poskrbite, da v imenu makra ni presledkov.

•  Opomba: Čeprav je mogoče makre dodeliti gumbom , bomo makro za poenostavitev zagnali ročno prek zavihka Pogled ali zavihkov Razvijalec.

• Izvedite zaporedje korakov, ki jih želite posneti. V tem primeru boste zabeležili naslednje korake:
  • Izberite določen odstavek v dokumentu.
  • Pojdite na zavihek Domov .
  • Nastavite pisavo na Times New Roman.
  • Nastavite velikost pisave na 16.
  • Centrirajte svoje besedilo tako, da pritisnete Ctrl + E.
• Ko končate, se vrnite na zavihek Razvijalec in pritisnite Ustavi snemanje .
• Zdaj pa si poglejmo samodejno ustvarjeno kodo VBA. Pritisnite Makri in nato označite makro za samodejno oblikovanje in pritisnite Uredi .

• Zaprite urejevalnik VBA.

Shranite svoje delo v predlogo, ki podpira Word Macro

• Pritisnite Datoteka in nato Shrani kot .
• V pogovornem oknu Shrani kot na desni strani določite lokacijo shranjevanja in svojemu delovnemu zvezku zagotovite smiselno ime.

• Za vrsto dokumenta izberite Wordov makro omogočen dokument. Opomba: Vaš Wordov dokument bo shranjen s pripono .docm.
• Pritisnite gumb Shrani .

Izvajanje vašega makra

• Odprite svoj Wordov dokument.
• Izberite odstavek, ki ga želite samodejno oblikovati. Samo kot primer, tukaj je odstavek, ki sem ga izbral:

• Pojdite na zavihek Pogled .
• Pritisnite gumb Makri .
• Izberite svoj makro za samodejno oblikovanje
• Pritisnite Zaženi – to bo uporabilo makro na izbranem odstavku.
• Voi'la, lep rezultat!

Dodeljevanje makra gumbom ali bližnjicam na tipkovnici

Opomba: To je izbirni korak, ki ga morate poskusiti, potem ko ste sledili zgornji vadnici za snemanje makrov.

V redu, zaenkrat so naše osnove makrov delovale. Zdaj je čas, da nekoliko izboljšamo našo uporabnost makrov v Wordovem dokumentu. Naj vam pokažem, kako lahko svoj makro povežete z gumbom za hitri dostop, da ga boste lažje zagnali.

• Z desno miškino tipko kliknite trak in izberite Prilagodi orodno vrstico za hitri dostop.
• Pojavilo se bo pogovorno okno Word Možnosti .
• V spustnem meniju Izbira ukazov iz izberite Makri.
• Označite svoj makro in pritisnite gumb Dodaj>> , da dodate bližnjico do makra v orodno vrstico za hitri dostop .

• Pritisnite gumb Spremeni… , da določite primerno ikono za svoj makro.
• Določite prikazno ime za svoj gumb.
• Pritisnite OK .
• Zdaj lahko zaženete svoj makro iz orodne vrstice za hitri dostop, tik nad trakom.

Opomba: svoj Wordov makro lahko povežete ne le z gumbi za hitri dostop, ampak tudi z ukaznimi gumbi, ki so vdelani v vaš dokument, in posebnimi bližnjicami na tipkovnici po meri.

Ustvarjanje Wordovih makrov z uporabo VBA

Z nekaj preprostimi veščinami kodiranja v Visual Basicu za aplikacije lahko urejamo makre in pišemo programe za avtomatizacijo različnih vrst del z uporabo VBA.

Opomba ob strani: FYI – nekatere aplikacije Microsoft Office, kot sta Powerpoint in Outlook, nimajo vgrajenih snemalnikov makrov. Zato je pisanje VBA obvezno za pisanje Powerpoint makrov in avtomatizacijo Outlooka.

• Če želite urediti makro, kliknite  zavihek Razvijalec  in v možnosti kode izberite Makri .
• Kliknite na makro in izberite  Uredi .
• Odprl se bo urejevalnik Visual Basic za aplikacije.
• Predpostavimo, da želimo makro, ki smo ga posneli v prejšnjem koraku, ročno urediti, tako da Word ne nastavi le velikosti, pisave in poravnave odstavka, temveč tudi barvo.
• Nastavitev barve razdelka se doseže z naslednjim ukazom VBA:

[koda] Izbira.Pisava.Barva [/code]

• V našem primeru ga bomo želeli nastaviti na naključno modro, zato bomo našemu posnetemu makru dodali naslednji odrezek:

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

• Tako naj bi izgledala vaša koda VBA:

• V urejevalniku VBA pritisnite Datoteka in nato Shrani .
• Vrnite se v dokument, zaženite svoj makro na odstavku in opazujte spremembo barve pisave.

• Voi'la!

Uporaben primer Wordovega makra, ki ga lahko napišete

Od objave te vadnice je veliko bralcev zahtevalo več poglobljenih primerov Wordovih makrov. Ta seznam zajema najbolj razširjena opravila, ki jih lahko avtomatizirate z Visual Basic v Wordu. gremo:

Ustvarite in shranite 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

Opomba: Ko ustvarjate nove dokumente, lahko določite predlogo (datoteke .dotm/.dotx), ki jo želite uporabiti. Predloge so običajno shranjene na: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Odprite Wordov dokument z 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

Zapiranje enega/vseh odprtih 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

Shranjevanje Worda kot PDF

Tukaj je opisano, kako enostavno avtomatizirati shranjevanje Wordovih dokumentov kot datotek 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

Vstavljanje glave in noge

Ta koda nastavi glavo in nogo prve strani vašega Wordovega 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 za Word makro

Tukaj je še nekaj idej, ki jih bomo objavili v prihodnji prihodnosti.

1. Najdi in zamenjaj (metoda izvajanja)
2. Vstavite odstavek (pred in po izbiri)
3. Programsko tiskanje dokumentov
4. Delo s tabelami

S tem zaključujemo našo današnjo vadnico. Kot ste pravkar videli, je s snemalnikom makrov Word in makri VBA v Wordu treba veliko postoriti. V primeru, da iščete bolj specifično pomoč, ki presega obseg te vadnice, nas kontaktirajte preko našega kontaktnega obrazca .