„Word“ makrokomandos už makrokomandų įrašymo įrenginio ribų: „Office 2016“, 365 / 2019 makrokomandų mokymo programa ir naudingi pavyzdžiai

Taikymas: Word 365, 2019, 2016; Windows ir MAC OS X operacinės sistemos.

Štai skaitytojo klausimas:

Aš esu mokytojas, paprastai naudoju Word 2019 savo dokumentams rašyti. Man dažnai reikia pakeisti savo dokumento pastraipų šriftą ir dydį. Ar yra būdas automatizuoti savo darbą su makrokomandomis, kad galėčiau pakeisti savo dokumento pastraipą vienu paspaudimu? Esu tikras, kad taip sutaupysiu porą valandų per savaitę, kurias mielai skirsiu į kitas užduotis.

Ačiū už klausimą. Pagrindinis makrokomandų pranašumas yra tas, kad jos leidžia automatizuoti užduotis Microsoft Office programose. Makrokomandas galima įrašyti arba užkoduoti rankiniu būdu naudojant „Visual Basic for Applications“ (VBA). „Word“ pristato „Macro“ įrašymo įrenginį, kuris leidžia kurti automatizavimo scenarijus be kodavimo. Jei tik pradedate automatizuoti, tai gali būti pakankamai geras sprendimas. Be to, turėdami šiek tiek VBA žinių, galite rašyti efektyvias ir galingas makrokomandas.

Kūrėjo skirtuko įgalinimas programoje „Word“.

Jei Microsoft Word juostelėje nematote skirtuko Kūrėjas, turėsite nustatyti makrokomandos kūrimo aplinką.

• Atidarykite naują Word dokumentą. Jei norite dirbti su esamu failu, prieš atlikdami pakeitimus įsitikinkite, kad turite atsarginę kopiją.
• Dabar eikite į priekį ir padarykite kūrėjo meniu matomą juostelėje .

„Word“ makrokomandos įrašymas – praktinis pavyzdys

• Dabar spustelėkite naujai pridėtą kūrėjo skirtuką.
• Eikite į kodo mygtukų grupę.

• Paspauskite mygtuką Įrašyti makrokomandą , kad iškviestumėte makrokomandos įrašymo funkciją.

• Apibrėžkite prasmingą makrokomandos pavadinimą. Pastaba: kadangi jūsų pateiktas pavadinimas bus naudojamas automatiškai sukurtame VBA kode, įsitikinkite, kad makrokomandos pavadinime nėra tarpų.

•  Pastaba: nors mygtukams galima priskirti makrokomandas , kad būtų paprasčiau, makrokomandą paleisime rankiniu būdu skirtuke Rodinys arba Kūrėjo skirtukuose.

• Atlikite veiksmų seką, kurią norite įrašyti. Tokiu atveju įrašysite šiuos veiksmus:
  • Pasirinkite konkrečią pastraipą savo dokumente.
  • Eikite į skirtuką Pagrindinis .
  • Nustatykite šriftą į Times New Roman.
  • Nustatykite šrifto dydį į 16.
  • Centruokite tekstą paspausdami Ctrl + E.
• Baigę grįžkite į skirtuką Kūrėjas ir paspauskite Stop Recording .
• Dabar pažvelkime į automatiškai sugeneruotą VBA kodą. Spustelėkite „ Makrokomandos “, tada pažymėkite „ AutoFormat Macro“ ir spustelėkite „ Redaguoti “ .

• Uždarykite VBA redaktorių.

Išsaugokite savo darbą „Word“ makrokomandos šablone

• Spustelėkite Failas , tada Išsaugoti kaip .
• Dešinėje pusėje esančiame dialogo lange Įrašyti kaip nustatykite įrašymo vietą ir nurodykite prasmingą darbaknygės pavadinimą.

• Kaip dokumento tipą pasirinkite „Word Macro“ įgalintas dokumentas. Pastaba: jūsų Word dokumentas bus išsaugotas su .docm priesaga.
• Paspauskite Išsaugoti mygtuką.

Vykdoma jūsų makrokomanda

• Atidarykite savo Word dokumentą.
• Pasirinkite pastraipą, kurią norite formatuoti automatiškai. Kaip pavyzdį, čia yra pastraipa, kurią pasirinkau:

• Eikite į skirtuką Rodymas .
• Paspauskite makrokomandų mygtuką.
• Pasirinkite automatinio formatavimo makrokomandą
• Paspauskite Vykdyti – pasirinktai pastraipai bus pritaikyta makrokomanda.
• Voi'la, geras rezultatas!

  

Makrokomandos priskyrimas mygtukams arba spartiesiems klavišams

Pastaba: tai yra neprivalomas veiksmas, kurį reikia atlikti po to, kai atliksite aukščiau pateiktą makrokomandos įrašymo pamoką.

Gerai, kol kas veikiame makrokomandos pagrindus. Dabar laikas šiek tiek patobulinti makrokomandų naudojimą Word dokumente. Leiskite parodyti, kaip galite susieti makrokomandą su greitos prieigos mygtuku, kad galėtumėte lengviau ją paleisti.

• Dešiniuoju pelės mygtuku spustelėkite juostelę ir pasirinkite Tinkinti greitosios prieigos įrankių juostą.
• Pasirodys „ Word“ parinkčių dialogo langas.
• Išskleidžiamajame meniu Pasirinkti komandas pasirinkite Makrokomandos.
• Pažymėkite savo makrokomandą ir paspauskite mygtuką Pridėti>> , kad pridėtumėte sparčiosios prieigos įrankių juostos makrokomandos nuorodą .

• Spustelėkite mygtuką Keisti… , kad nustatytumėte tinkamą makrokomandos piktogramą.
• Apibrėžkite savo mygtuko rodomą pavadinimą.
• Paspauskite OK .
• Dabar makrokomandą galite paleisti iš greitosios prieigos įrankių juostos, esančios tiesiai virš juostelės.

Pastaba: „Word“ makrokomandą galite susieti ne tik su greitosios prieigos mygtukais, bet ir su komandų mygtukais, įtaisytais dokumente, bei konkrečiais pasirinktiniais sparčiaisiais klavišais.

„Word“ makrokomandų kūrimas naudojant VBA

Turėdami keletą paprastų „Visual Basic for Applications“ kodavimo įgūdžių, galime redaguoti makrokomandas ir rašyti programas, skirtas automatizuoti įvairius darbus naudodami VBA.

Pastaba: FYI – kai kurios „Microsoft Office“ programos, tokios kaip „Powerpoint“ ir „Outlook“, neturi integruotų makrokomandų įrašymo įrenginių. Todėl VBA rašymas yra privalomas norint rašyti Powerpoint makrokomandas ir automatizuoti Outlook.

• Norėdami redaguoti makrokomandą, spustelėkite  skirtuką Kūrėjas  ir kodo parinktyje pasirinkite Makrokomandos .
• Spustelėkite makrokomandą ir pasirinkite  Redaguoti .
• Atsidarys „Visual Basic for Applications“ redaktorius.
• Tarkime, kad norime rankiniu būdu redaguoti ankstesniame žingsnyje įrašytą makrokomandą, kad „Word“ ne tik nustatytų pastraipos dydį, šriftą ir lygiavimą, bet ir spalvą.
• Sekcijos spalva nustatoma naudojant šią VBA komandą:

[kodas] Pasirinkimas. Šriftas. Spalva [/kodas]

• Mūsų atveju norėsime nustatyti atsitiktinai mėlyną, todėl prie įrašytos makrokomandos pridėsime šį fragmentą:

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

• Štai kaip turėtų atrodyti jūsų VBA kodas:

• VBA redaktoriuje spustelėkite Failas , tada Išsaugoti .
• Grįžkite į dokumentą, paleiskite makrokomandą pastraipoje ir stebėkite šrifto spalvos pasikeitimą.

• Voi'la!

Naudingas Word Macro pavyzdys, kurį galite parašyti

Paskelbus šią mokymo programą, daugelis skaitytojų prašė išsamesnių Word makrokomandų pavyzdžių. Šiame sąraše pateikiamos dažniausiai pasitaikančios užduotys, kurias galite automatizuoti naudodami „Visual Basic“ programoje „Word“. Štai mes einame:

Sukurkite ir išsaugokite naują 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

Pastaba: kurdami naujus dokumentus galite nurodyti norimą naudoti šabloną (.dotm/.dotx failus). Šablonai paprastai saugomi adresu: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Atidarykite „Word“ dokumentą naudodami 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

Vieno/visų atidarytų dokumentų uždarymas

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

Word įrašymas PDF formatu

Štai kaip lengvai automatizuoti Word dokumentų įrašymą kaip PDF failus.

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

Įterpiama antraštė ir poraštė

Šis kodas nustato jūsų Word dokumento pirmojo puslapio antraštę ir poraštę.

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

Papildomos Word makro idėjos

Štai dar kelios idėjos, kurias paskelbsime artimiausiu metu.

1. Rasti ir pakeisti (vykdymo metodas)
2. Įterpti pastraipą (prieš ir po pasirinkimo)
3. Programinis dokumentų spausdinimas
4. Darbas su stalais

Tai užbaigia mūsų šiandienos mokymo programą. Kaip ką tik matėte, su Word makrokomandų įrašymo įrenginiu ir VBA makrokomandomis programoje Word yra daug ką nuveikti. Jei ieškote konkretesnės pagalbos, kuri neapsiriboja šioje mokymo programoje, susisiekite su mumis naudodami kontaktinę formą .