Wordi makrod väljaspool makrosalvestit: Office 2016, 365/2019 makrode õpetus ja kasulikud näited

Kohaldatavus: Word 365, 2019, 2016; Windows ja MAC OS X operatsioonisüsteemid.

Siin on küsimus lugejalt:

Olen õpetaja, kasutan dokumentide kirjutamiseks tavaliselt Word 2019. Pean sageli muutma oma dokumendi lõikude fonti ja suurust. Kas on võimalik oma tööd makrodega automatiseerida, et saaksin oma dokumendi lõiku ühe klõpsuga muuta? Olen kindel, et see säästab mulle paar tundi nädalas, mille investeerin hea meelega muudesse ülesannetesse.

Täname teid küsimuse eest. Makrode peamine eelis on see, et need võimaldavad teil ülesandeid Microsoft Office'i rakendustes automatiseerida. Makrosid saab salvestada või käsitsi kodeerida, kasutades Visual Basic for Applications (VBA). Word tarnib makrosalvesti, mis võimaldab teil ilma kodeerimiseta automatiseerimisskripte välja töötada. Kui te alles alustate automatiseerimisega, võib see olla piisavalt hea lahendus. See tähendab, et väikese VBA teadmistega saate kirjutada tõhusaid ja võimsaid makrosid.

Wordis arendaja vahekaardi lubamine

Kui te ei näe oma Microsoft Wordi lindil vahekaarti Arendaja, peate seadistama oma makro arenduskeskkonna.

• Avage uus Wordi dokument. Kui soovite töötada olemasoleva failiga, veenduge, et teil oleks enne muudatuste tegemist selle koopia varundamiseks.
• Nüüd jätkake ja tehke arendaja menüü lindil nähtavaks .

Wordi makro salvestamine – praktiline näide

• Nüüd klõpsake äsja lisatud arendaja vahekaarti.
• Minge nuppude rühma Kood .

• Makro salvestamise funktsiooni käivitamiseks vajutage nuppu Salvesta makro .

• Määrake oma makrole tähendusrikas nimi. Märkus. Kuna teie antud nime kasutatakse automaatselt loodud VBA-koodis, veenduge, et makro nimes ei oleks tühikuid.

•  Märkus. Kuigi nuppudele on võimalik määrata makrosid, käivitame lihtsuse huvides makro käsitsi vahekaardi Vaade või Arendaja vahekaartide kaudu.

• Sooritage toimingute jada, mida soovite salvestada. Sel juhul salvestate järgmised sammud.
  • Valige oma dokumendist konkreetne lõik.
  • Minge vahekaardile Avaleht .
  • Määrake fontiks Times New Roman.
  • Määrake fondi suuruseks 16.
  • Keskendage tekst, vajutades Ctrl + E.
• Kui olete valmis, naaske vahekaardile Arendaja ja klõpsake nuppu Peata salvestamine .
• Nüüd vaatame automaatselt genereeritud VBA koodi. Klõpsake nuppu Makrod ja seejärel tõstke esile automaatse vormindamise makro ja klõpsake nuppu Redigeeri .

• Sulgege VBA redaktor.

Salvestage oma töö Wordi makroga malli

• Klõpsake nuppu Fail ja seejärel Salvesta nimega .
• Parempoolses dialoogiaknas Salvesta kui määrake oma salvestuskoht ja andke oma töövihikule tähendusrikas nimi.

• Valige oma dokumenditüübiks Wordi makro lubatud dokument. Märkus. Teie Wordi dokument salvestatakse docm-i järelliitega.
• Vajutage nuppu Salvesta .

Teie makro täitmine

• Avage oma Wordi dokument.
• Valige lõik, mida soovite automaatselt vormindada. Just näiteks siin on lõik, mille valisin:

• Minge vahekaardile Vaade .
• Vajutage nuppu Makrod .
• Valige oma automaatse vormindamise makro
• Vajuta Käivita – see rakendab makro valitud lõigule.
• Voi'la, hea tulemus!

  

Makro määramine nuppudele või klaviatuuri otseteedele

Märkus. See on valikuline samm, mida tuleks proovida pärast ülaltoodud makrosalvestuse õpetuse järgimist.

OK, siiani oleme oma makro põhitõed tööle saanud. Nüüd on aeg natuke parandada meie makro kasutatavust Wordi dokumendis. Lubage mul näidata, kuidas saate oma makro siduda kiirjuurdepääsunupuga, et saaksite seda hõlpsamini käivitada.

• Paremklõpsake lindil ja valige Kohanda kiirjuurdepääsu tööriistariba.
• Ilmub dialoog Wordi suvandid .
• Valige rippmenüüst käskude valimine makrod.
• Tõstke esile oma makro ja vajutage nuppu Lisa>> , et lisada kiirpääsu tööriistaribale makro otsetee .

• Makro jaoks sobiva ikooni määramiseks vajutage nuppu Muuda… .
• Määrake oma nupule kuvatav nimi.
• Vajutage nuppu OK .
• Nüüd saate oma makro käivitada kiirjuurdepääsu tööriistaribalt, mis asub lindi kohal.

Märkus. Saate oma Wordi makro siduda mitte ainult kiirjuurdepääsu nuppudega, vaid ka dokumenti manustatud käsunuppudega ja konkreetsete kohandatud klaviatuuri otseteedega.

Wordi makrode loomine VBA abil

Mõne lihtsa Visual Basic for Applicationsi kodeerimisoskusega saame redigeerida makrosid ja kirjutada programme, et automatiseerida mitmesuguseid töid VBA abil.

Märkus kõrvale: teadmiseks – mõnel Microsoft Office'i rakendusel, nagu Powerpoint ja Outlook, pole sisseehitatud makrosalvestiid. Seetõttu on Powerpointi makrode kirjutamiseks ja Outlooki automatiseerimiseks VBA kirjutamine kohustuslik .

• Makro muutmiseks klõpsake  vahekaarti Arendaja  ja valige koodivalikus Makrod .
• Klõpsake makrol ja valige  Redigeeri .
• Avaneb rakenduste redaktor Visual Basic.
• Oletame, et tahame eelmises etapis salvestatud makrot käsitsi redigeerida, nii et Word ei määraks mitte ainult lõigu suurust, fondi ja joondust, vaid ka värvi.
• Sektsiooni värvi määramine saavutatakse järgmise VBA-käsuga:

[kood] Valik.Font.Värv [/kood]

• Meie puhul tahame selle määrata juhuslikult siniseks, nii et lisame oma salvestatud makrole järgmise lõigu:

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

• VBA-kood peaks välja nägema järgmiselt:

• Klõpsake VBA redaktoris nuppu Fail ja seejärel nuppu Salvesta .
• Tagasi oma dokumendi juurde, käivitage lõigul makro ja jälgige fondi värvi muutumist.

• Voi'la!

Kasulik Wordi makro näide, mida saate kirjutada

Pärast selle õpetuse avaldamist soovisid paljud lugejad Wordi makrode kohta põhjalikumaid näiteid. See loend hõlmab kõige levinumaid ülesandeid, mida saate Wordis Visual Basicu abil automatiseerida. Siin läheme:

Looge ja salvestage uus 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

Märkus. Uute dokumentide loomisel saate määrata malli (.dotm/.dotx failid), mida soovite kasutada. Mallid salvestatakse tavaliselt aadressil: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Avage Wordi dokument VBA-ga

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

Ühe/kõikide avatud dokumentide sulgemine

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

Wordi salvestamine PDF-vormingus

Siit saate teada, kuidas hõlpsasti automatiseerida Wordi dokumentide salvestamist PDF-failidena.

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

Päise ja jaluse sisestamine

See kood määrab teie Wordi dokumendi esimese lehe päise ja jaluse.

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

Täiendavad Wordi makro ideed

Siin on veel mõned ideed, mida me lähitulevikus postitame.

1. Otsi ja asenda (käivitamismeetod)
2. Lõigu lisamine (enne ja pärast valikut)
3. Dokumentide printimine programmiliselt
4. Töötamine tabelitega

Sellega meie tänane õpetus lõpeb. Nagu just nägite, on Wordi makrosalvesti ja Wordi VBA makrodega palju ära teha. Kui otsite täpsemat abi, mis väljub selle õpetuse raamest, võtke meiega ühendust meie kontaktivormi kaudu .