Word Macros përtej regjistruesit makro: Office 2016, 365 / 2019 Macros tutorial dhe shembuj të dobishëm

Zbatueshmëria: Word 365, 2019, 2016; Sistemet operative Windows dhe MAC OS X.

Ja një pyetje nga një lexues:

Unë jam një mësues që zakonisht përdor Word 2019 për të shkruar dokumentet e mia. Shpesh më duhet të ndryshoj fontin dhe madhësinë e paragrafëve të dokumentit tim. A ka ndonjë mënyrë për të automatizuar punën time me Macros, në mënyrë që të mund ta modifikoj paragrafin e dokumentit tim me një klikim? Jam i sigurt se kjo do të më kursejë disa orë në javë, të cilat me kënaqësi do t'i investoj në detyra të tjera.

Faleminderit për pyetjen tuaj. Avantazhi kryesor i Macros është se ato ju lejojnë të automatizoni detyrat tuaja në aplikacionet e Microsoft Office. Makrot mund të regjistrohen ose të kodohen manualisht duke përdorur Visual Basic for Applications (VBA). Word dërgon një regjistrues makro që ju lejon të zhvilloni skriptet e automatizimit pa kodim. Nëse sapo po filloni me automatizimin, kjo mund të jetë një zgjidhje mjaft e mirë. Thënë kështu, me pak njohuri VBA, mund të shkruani makro efikase dhe të fuqishme.

Aktivizimi i skedës së zhvilluesit në Word

Nëse nuk e shihni skedën Zhvilluesi në Shiritin tuaj të Microsoft Word, do t'ju duhet të konfiguroni mjedisin tuaj të zhvillimit të Macro.

• Hapni një dokument të ri Word. Në rast se dëshironi të punoni në një skedar ekzistues, sigurohuni që të keni një kopje për kopje rezervë, përpara se të bëni ndonjë ndryshim.
• Tani, vazhdo dhe bëje të dukshme menunë e zhvilluesit në Shiritin .

Regjistrimi i një makro Word - një shembull praktik

• Tani, shtypni skedën e sapo shtuar Zhvilluesi .
• Shkoni te grupi i butonave të kodit .

• Shtypni butonin Regjistro makro për të aktivizuar funksionin e regjistruesit makro.

• Përcaktoni një emër kuptimplotë për Macron tuaj. Shënim: Meqë emri që jepni do të përdoret në kodin VBA të krijuar automatikisht, Sigurohuni që të mos ketë hapësira në emrin e Macros.

•  Shënim: Edhe pse është e mundur të caktohen Macro tek butonat, për thjeshtësi, ne do ta ekzekutojmë Macro-në manualisht nëpërmjet skedës View ose Developer.

• Ekzekutoni sekuencën e hapave që dëshironi të regjistroni. Në këtë rast, ju do të regjistroni hapat e mëposhtëm:
  • Zgjidhni një paragraf specifik në dokumentin tuaj.
  • Shkoni te skeda Home .
  • Vendosni fontin në Times New Roman.
  • Vendosni madhësinë e shkronjave në 16.
  • Përqendroni tekstin tuaj duke shtypur Ctrl + E.
• Pasi të keni përfunduar, kthehuni te skeda Zhvilluesi dhe shtypni Ndalo regjistrimin .
• Tani le të hedhim një vështrim në kodin VBA të gjeneruar automatikisht. Shtypni Macros dhe më pas theksoni AutoFormat Macron dhe shtypni Edit .

• Mbyllni redaktuesin VBA.

Ruani punën tuaj në një shabllon të aktivizuar me Word Macro

• Shtypni File , pastaj Save As .
• Në krahun e djathtë të dialogut "Ruaj si", përcaktoni vendndodhjen tuaj të ruajtjes dhe jepni një emër kuptimplotë për Librin tuaj të Punës.

• Zgjidhni Word Macro Enabled Document si lloj dokumenti. Shënim: Dokumenti juaj Word do të ruhet me prapashtesën .docm.
• Shtypni butonin Save .

Ekzekutimi i makros tuaj

• Hapni dokumentin tuaj Word.
• Zgjidhni Paragrafin që dëshironi të formatoni automatikisht. Vetëm si shembull, këtu është paragrafi që zgjodha:

• Shkoni te skeda View .
• Shtypni butonin Macros .
• Zgjidhni makronë tuaj të Formatimit automatik
• Kliko Run – kjo do të zbatojë makro në paragrafin e zgjedhur.
• Voi'la, rezultat i bukur!

Caktimi i makro-së tuaj te butonat ose shkurtoret e tastierës

Shënim: Ky është një hap opsional që duhet të provohet pasi të keni ndjekur udhëzuesin e mësipërm të regjistrimit makro.

OK, deri më tani ne kemi funksionuar bazat tona të Macro. Tani është koha për të përmirësuar pak përdorshmërinë tonë të Macro në Word doc. Më lejoni t'ju tregoj se si mund ta lidhni Macron tuaj me një buton aksesi të shpejtë, në mënyrë që ta hapni më lehtë.

• Klikoni me të djathtën në shirit dhe zgjidhni Personalizo shiritin e veglave të aksesit të shpejtë.
• Dialogu i opsioneve të fjalës do të shfaqet.
• Në dropdown Zgjidhni komandat, zgjidhni Macros.
• Theksoni makro-në tuaj dhe shtypni butonin Shto>> për të shtuar një shkurtore te makroja juaj në shiritin e veglave të aksesit të shpejtë .

• Shtypni butonin Modifiko… për të përcaktuar një ikonë të përshtatshme për Macron tuaj.
• Përcaktoni një emër të shfaqur për butonin tuaj.
• Shtypni OK .
• Tani, ju mund të nisni Macron tuaj nga Shiriti i Veglave të Qasjes së Shpejtë, pikërisht mbi Shiritin.

Shënim: Ju mund ta lidhni Word Macro-në tuaj jo vetëm me butonat e aksesit të shpejtë, por edhe me butonat e komandave të ngulitura në dokumentin tuaj dhe shkurtoret specifike të tastierës me porosi.

Krijimi i makrove Word duke përdorur VBA

Me disa aftësi të thjeshta të kodimit të Visual Basic për aplikacione, ne mund të modifikojmë makrot dhe të shkruajmë programe për të automatizuar lloje të ndryshme punësh duke përdorur VBA.

Shënim mënjanë: FYI – disa nga aplikacionet e Microsoft Office, si Powerpoint dhe Outlook, nuk kanë regjistrues makro të integruar . Prandaj, shkrimi i VBA është i detyrueshëm për shkrimin e makrove në Powerpoint dhe automatizimin e Outlook.

• Për të modifikuar një makro, klikoni në  skedën Zhvilluesi  dhe zgjidhni Macros në opsionin e kodit.
• Klikoni në makro dhe zgjidhni  Edit .
• Redaktori i Visual Basic për aplikacionet do të hapet.
• Le të supozojmë se duam të modifikojmë manualisht Macron që kemi regjistruar në hapin e mëparshëm, në mënyrë që Word jo vetëm të vendosë madhësinë, fontin dhe shtrirjen e paragrafit, por edhe ngjyrën.
• Vendosja e ngjyrës së një seksioni arrihet duke përdorur komandën e mëposhtme VBA:

[code] Selection.Font.Ngjyra [/code]

• Në rastin tonë, ne do të duam ta vendosim atë në një blu të rastësishme, kështu që ne do të shtojmë fragmentin e mëposhtëm në makro tonë të regjistruar:

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

• Ja se si duhet të duket kodi juaj VBA:

• Në Redaktuesin VBA, shtypni File dhe më pas Save .
• Kthehuni te dokumenti juaj, ekzekutoni Macro-në tuaj në një paragraf dhe vëzhgoni ndryshimin e ngjyrës së fontit.

• Voi'la!

Shembull i dobishëm Word Macro që mund të shkruani

Që nga publikimi i këtij tutoriali, shumë lexues kërkuan shembuj më të thellë të Word Macros. Kjo listë mbulon detyrat më të përhapura që mund të automatizoni duke përdorur Visual Basic në Word. Ja ku shkojmë:

Krijoni dhe ruani një dokument të ri

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

Shënim: Kur krijoni dokumente të reja, mund të specifikoni shabllonin (skedarët .dotm/.dotx) që dëshironi të përdorni. Modelet zakonisht ruhen në: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Hapni një dokument Word me 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

Mbyllja e një/të gjithë dokumenteve të hapura

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

Ruajtja e Word-it si PDF

Ja se si të automatizoni me lehtësi ruajtjen e dokumenteve Word si skedarë 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

Duke futur kokën dhe fundin

Ky kod vendos kokën dhe fundin e faqes së parë të dokumentit tuaj Word.

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

Ide shtesë për makro Word

Këtu janë disa ide të tjera që do t'i postojmë në të ardhmen.

1. Gjeni dhe zëvendësoni (Metoda e Ekzekutimit)
2. Fut një paragraf (para dhe pas një përzgjedhjeje)
3. Printimi i dokumenteve në mënyrë programore
4. Puna me tabela

Kjo përfundon tutorialin tonë për sot. Siç sapo e patë, ka shumë për të bërë me makroregjistruesin Word dhe VBA Macros në Word. Në rast se jeni duke kërkuar për ndihmë më specifike që shkon përtej qëllimit të këtij tutoriali, ju lutemi na kontaktoni përmes formularit tonë të kontaktit .