Word makro ārpus makro ierakstītāja: Office 2016, 365/2019 makro apmācība un noderīgi piemēri

Piemērojamība: Word 365, 2019, 2016; Windows un MAC OS X operētājsistēmas.

Šeit ir lasītāja jautājums:

Es esmu skolotājs, kas parasti izmanto programmu Word 2019, lai rakstītu savus dokumentus. Man bieži ir jāmaina sava dokumenta rindkopu fonts un izmērs. Vai ir kāds veids, kā automatizēt savu darbu ar makro, lai es varētu modificēt sava dokumenta rindkopu ar vienu klikšķi? Esmu pārliecināts, ka tas man ietaupīs pāris stundas nedēļā, kuras es labprāt ieguldīšu citos darbos.

Paldies par jūsu jautājumu. Makro galvenā priekšrocība ir tā, ka tie ļauj automatizēt uzdevumus Microsoft Office lietojumprogrammās. Makro var ierakstīt vai manuāli kodēt, izmantojot Visual Basic for Applications (VBA). Word piegādā makro ierakstītāju, kas ļauj izstrādāt automatizācijas skriptus bez kodēšanas. Ja jūs tikko sākat ar automatizāciju, tas varētu būt pietiekami labs risinājums. Tomēr ar nelielām VBA zināšanām jūs varat rakstīt efektīvus un jaudīgus makro.

Izstrādātāja cilnes iespējošana programmā Word

Ja Microsoft Word lentē neredzat cilni Izstrādātājs, jums ir jāiestata makro izstrādes vide.

• Atveriet jaunu Word dokumentu. Ja vēlaties strādāt ar esošu failu, pirms izmaiņu veikšanas pārliecinieties, vai jums ir tā kopija dublēšanai.
• Tagad turpiniet un padariet izstrādātāja izvēlni redzamu lentē .

Word makro ierakstīšana – praktisks piemērs

• Tagad noklikšķiniet uz tikko pievienotās cilnes Izstrādātājs .
• Dodieties uz pogu grupu Kods .

• Nospiediet pogu Ierakstīt makro , lai izsauktu makro ierakstītāja funkciju.

• Definējiet savam makro jēgpilnu nosaukumu. Piezīme. Tā kā jūsu norādītais nosaukums tiks izmantots automātiski izveidotajā VBA kodā, makro nosaukumā nedrīkst būt atstarpes.

•  Piezīme. Lai gan pogām ir iespējams piešķirt makro, vienkāršības labad mēs palaidīsim makro manuāli, izmantojot cilni Skats vai cilnes Izstrādātājs.

• Izpildiet darbību secību, kuru vēlaties ierakstīt. Šādā gadījumā jums būs jāreģistrē šādas darbības:
  • Atlasiet konkrētu rindkopu savā dokumentā.
  • Dodieties uz cilni Sākums .
  • Iestatiet fontu uz Times New Roman.
  • Iestatiet fonta lielumu uz 16.
  • Centrējiet tekstu, nospiežot Ctrl+E.
• Kad esat pabeidzis, atgriezieties cilnē Izstrādātājs un nospiediet Apturēt ierakstīšanu .
• Tagad apskatīsim automātiski ģenerēto VBA kodu. Noklikšķiniet uz Makro , pēc tam iezīmējiet AutoFormat Macro un noklikšķiniet uz Rediģēt .

• Aizveriet VBA redaktoru.

Saglabājiet savu darbu Word Macro iespējotā veidnē

• Noklikšķiniet uz Fails , pēc tam Saglabāt kā .
• Dialoglodziņā Saglabāt kā labajā pusē nosakiet saglabāšanas vietu un piešķiriet savai darbgrāmatai jēgpilnu nosaukumu.

• Kā sava dokumenta veidu izvēlieties Word Macro Enabled Document. Piezīme. Jūsu Word dokuments tiks saglabāts ar .docm sufiksu.
• Nospiediet pogu Saglabāt .

Notiek jūsu makro izpilde

• Atveriet savu Word dokumentu.
• Atlasiet rindkopu, kuru vēlaties automātiski formatēt. Piemēram, es izvēlējos rindkopu:

• Dodieties uz cilni Skats .
• Nospiediet pogu Makro .
• Atlasiet savu AutoFormat Macro
• Nospiediet Izpildīt — makro tiks lietots atlasītajā rindkopā.
• Voi'la, jauks rezultāts!

Makro piešķiršana pogām vai īsinājumtaustiņiem

Piezīme. Šī ir izvēles darbība, kas jāmēģina pēc tam, kad esat izpildījis iepriekš sniegto makro ierakstīšanas pamācību.

Labi, līdz šim esam strādājuši ar makro pamatiem. Tagad ir pienācis laiks nedaudz uzlabot mūsu makro lietojamību Word doc. Ļaujiet man parādīt, kā jūs varat saistīt savu makro ar ātrās piekļuves pogu, lai jūs to varētu vieglāk palaist.

• Ar peles labo pogu noklikšķiniet uz lentes un atlasiet Pielāgot ātrās piekļuves rīkjoslu.
• Tiks parādīts dialoglodziņš Word opcijas .
• Nolaižamajā izvēlnē Izvēlieties komandas no atlasiet Makro.
• Iezīmējiet savu makro un nospiediet pogu Pievienot>> , lai ātrās piekļuves rīkjoslai pievienotu makro saīsni .

• Nospiediet pogu Modificēt… , lai definētu savam makro piemērotu ikonu.
• Definējiet savai pogai parādāmo nosaukumu.
• Nospiediet OK .
• Tagad varat palaist savu makro no ātrās piekļuves rīkjoslas, kas atrodas tieši virs lentes.

Piezīme. Savu Word makro varat saistīt ne tikai ar ātrās piekļuves pogām, bet arī ar dokumentā iegultām komandu pogām un īpašiem pielāgotiem īsinājumtaustiņiem.

Word makro izveide, izmantojot VBA

Izmantojot dažas vienkāršas Visual Basic for Applications kodēšanas prasmes, mēs varam rediģēt makro un rakstīt programmas, lai automatizētu dažāda veida darbus, izmantojot VBA.

Piezīme: FYI — dažām Microsoft Office lietojumprogrammām, piemēram, Powerpoint un Outlook, nav iebūvētu makro ierakstītāju. Tāpēc VBA rakstīšana ir obligāta Powerpoint makro rakstīšanai un Outlook automatizēšanai.

• Lai rediģētu makro, noklikšķiniet uz  cilnes Izstrādātājs  un koda opcijā atlasiet Makro .
• Noklikšķiniet uz makro un atlasiet  Rediģēt .
• Tiks atvērts Visual Basic for Applications redaktors.
• Pieņemsim, ka vēlamies manuāli rediģēt iepriekšējā solī ierakstīto makro, lai Word iestatītu ne tikai rindkopas izmēru, fontu un līdzinājumu, bet arī krāsu.
• Sadaļas krāsas iestatīšana tiek veikta, izmantojot šādu VBA komandu:

[kods] Atlase.Fonts.Krāsa [/kods]

• Mūsu gadījumā mēs vēlamies to iestatīt uz nejauši zilu krāsu, tāpēc ierakstam makro pievienosim šādu fragmentu:

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

• Lūk, kā vajadzētu izskatīties jūsu VBA kodam:

• VBA redaktorā nospiediet Fails un pēc tam Saglabāt .
• Atgriezieties dokumentā, palaidiet makro rindkopā un novērojiet fonta krāsas maiņu.

• Voi'la!

Noderīgs Word makro piemērs, ko varat uzrakstīt

Kopš šīs apmācības publicēšanas daudzi lasītāji lūdza sniegt padziļinātus Word makro piemērus. Šajā sarakstā ir ietverti visizplatītākie uzdevumi, kurus varat automatizēt, izmantojot Visual Basic programmā Word. Te nu mēs esam:

Izveidojiet un saglabājiet jaunu dokumentu

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

Piezīme. Veidojot jaunus dokumentus, varat norādīt veidni (.dotm/.dotx failus), ko vēlaties izmantot. Veidnes parasti tiek glabātas šeit: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Atveriet Word dokumentu, izmantojot 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

Viena/visu atvērto dokumentu aizvēršana

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 saglabāšana PDF formātā

Tālāk ir norādīts, kā viegli automatizēt Word dokumentu saglabāšanu kā 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

Notiek galvenes un kājenes ievietošana

Šis kods iestata jūsu Word dokumenta pirmās lapas galveni un kājeni.

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

Papildu Word makro idejas

Šeit ir vēl dažas idejas, kuras mēs publicēsim tuvākajā nākotnē.

1. Atrast un aizstāt (izpildīšanas metode)
2. Ievietot rindkopu (pirms un pēc atlases)
3. Programmatiska dokumentu drukāšana
4. Darbs ar galdiem

Ar to mūsu šodienas apmācība ir beigusies. Kā jūs tikko redzējāt, programmā Word ir daudz darāmā ar Word makro ierakstītāju un VBA makro. Ja meklējat konkrētāku palīdzību, kas pārsniedz šīs apmācības darbības jomu, lūdzu, sazinieties ar mums, izmantojot mūsu saziņas veidlapu .