Ordmakroer ud over makrooptageren: Office 2016, 365 / 2019 Makroer tutorial og nyttige eksempler

Anvendelse: Word 365, 2019, 2016; Windows og MAC OS X operativsystemer.

Her er et spørgsmål fra en læser:

Jeg er lærer bruger typisk Word 2019 til at skrive mine dokumenter. Jeg har ofte brug for at ændre skrifttypen og størrelsen på mine dokumentafsnit. Er der en måde at automatisere mit arbejde med makroer, så jeg kan ændre mit dokumentafsnit med et enkelt klik? Jeg er sikker på, at dette kommer til at spare mig for et par timer om ugen, som jeg med glæde investerer i andre opgaver.

Tak for dit spørgsmål. Den vigtigste fordel ved makroer er, at de giver dig mulighed for at automatisere dine opgaver i Microsoft Office-applikationer. Makroer kan enten optages eller kodes manuelt ved hjælp af Visual Basic for Applications (VBA). Word sender en makrooptager, der giver dig mulighed for at udvikle automatiseringsscripts uden kodning. Hvis du lige er startet med automatisering, kan dette være en god nok løsning. Når det er sagt, med en lille smule VBA-viden kan du skrive effektive og kraftfulde makroer.

Aktivering af udviklerfanen i Word

Hvis du ikke kan se fanen Udvikler i dit Microsoft Word-bånd, skal du konfigurere dit makroudviklingsmiljø.

• Åbn et nyt Word-dokument. Hvis du gerne vil arbejde på en eksisterende fil, skal du sørge for at have en kopi til backup, før du foretager ændringer.
• Gå nu videre og gør udviklermenuen synlig i båndet .

Optagelse af en Word-makro – et praktisk eksempel

• Tryk nu på den nyligt tilføjede udviklerfane .
• Gå til Kodeknapgruppen .

• Tryk på knappen Optag makro for at aktivere makrooptagerfunktionen.

• Definer et meningsfuldt navn til din makro. Bemærk: Da det navn, du angiver, vil blive brugt i den automatisk oprettede VBA-kode, skal du sørge for, at der ikke er mellemrum i makronavnet.

•  Bemærk: Selvom det er muligt at tildele makroer til knapper, kører vi for nemheds skyld Makro manuelt via fanen Vis eller Udvikler-fanerne.

• Udfør den rækkefølge af trin, du gerne vil optage. I dette tilfælde skal du optage følgende trin:
  • Vælg et bestemt afsnit i dit dokument.
  • Gå til fanen Hjem .
  • Indstil skrifttypen til Times New Roman.
  • Indstil skriftstørrelsen til 16.
  • Centrer din tekst ved at trykke på Ctrl +E.
• Når du er færdig, skal du vende tilbage til fanen Udvikler og trykke på Stop optagelse .
• Lad os nu tage et kig på den automatisk genererede VBA-kode. Tryk på Makroer , og fremhæv AutoFormat- makroen og tryk på Rediger .

• Luk VBA Editor.

Gem dit arbejde i en Word Macro-aktiveret skabelon

• Tryk på Filer og derefter Gem som .
• I dialogboksen Gem som til højre skal du bestemme din lagringsplacering og angive et meningsfuldt navn til din projektmappe.

• Vælg Word Macro Enabled Document som din dokumenttype. Bemærk: Dit Word-dokument vil blive gemt med .docm-suffikset.
• Tryk på knappen Gem .

Udførelse af din makro

• Åbn dit Word-dokument.
• Vælg det afsnit, du vil formatere automatisk. Bare som et eksempel, her er det afsnit, jeg valgte:

• Gå til fanen Vis .
• Tryk på knappen Makroer .
• Vælg din AutoFormat- makro
• Hit Kør – dette vil anvende makroen på det valgte afsnit.
• Voi'la, flot resultat!

Tildeling af din makro til knapper eller tastaturgenveje

Bemærk: Dette er et valgfrit trin, der bør forsøges, når du har fulgt vejledningen til makrooptagelse ovenfor.

OK, indtil videre har vi fået vores grundlæggende makro til at fungere. Nu er det tid til at forbedre en smule vores Macro-anvendelighed i Word-dokumentet. Lad mig vise dig, hvordan du kan knytte din makro til en hurtig adgangsknap, så du lettere kan starte den.

• Højreklik på båndet og vælg Tilpas værktøjslinjen Hurtig adgang.
• Dialogboksen Ordindstillinger vises.
• Vælg Makroer i rullemenuen Vælg kommandoer fra.
• Fremhæv din makro og tryk på Tilføj>> knappen for at tilføje en genvej til din makro til værktøjslinjen Hurtig adgang .

• Tryk på knappen Rediger… for at definere et passende ikon til din makro.
• Definer et visningsnavn for din knap.
• Tryk OK .
• Nu kan du starte din makro fra værktøjslinjen Hurtig adgang lige over båndet.

Bemærk: Du er i stand til at associere din Word-makro ikke kun med hurtigadgangsknapper, men også med kommandoknapper, der er indlejret i dit dokument og specifikke brugerdefinerede tastaturgenveje.

Oprettelse af Word-makroer ved hjælp af VBA

Med nogle simple Visual Basic for Applications-kodningsfærdigheder kan vi redigere makroerne og skrive programmer for at automatisere forskellige slags værker ved hjælp af VBA.

Til side Bemærk: FYI – nogle af Microsoft Office-applikationerne, såsom Powerpoint og Outlook, har ikke indbyggede makrooptagere. Derfor er det obligatorisk at skrive VBA for at skrive Powerpoint-makroer og automatisere Outlook.

• For at redigere en makro skal du klikke på fanen  Udvikler  og vælge Makroer i kodeindstillingen.
• Klik på makroen og vælg  Rediger .
• Visual Basic for applications-editoren åbnes.
• Lad os antage, at vi manuelt vil redigere den makro, vi har optaget i det foregående trin, så Word ikke kun indstiller størrelsen, skrifttypen og justeringen af ​​afsnittet, men også farven.
• Indstilling af farven på en sektion opnås ved hjælp af følgende VBA-kommando:

[kode] Selection.Font.Color [/code]

• I vores tilfælde vil vi gerne indstille den til en tilfældig blå, så vi tilføjer følgende uddrag til vores optaget makro:

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

• Sådan skal din VBA-kode se ud:

• I VBA Editor skal du trykke på Fil og derefter Gem .
• Tilbage til dit dokument, kør din makro på et afsnit og observer skriftfarveændringen.

• Voi'la!

Nyttigt eksempel på Word-makro du kan skrive

Siden udgivelsen af ​​denne vejledning har mange læsere bedt om mere dybdegående eksempler på Word-makroer. Denne liste dækker de mest udbredte opgaver, du kan automatisere ved hjælp af Visual Basic i Word. Nu sker det:

Opret og gem nyt 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

Bemærk: Når du opretter nye dokumenter, er du i stand til at angive den skabelon (.dotm/.dotx-filer), du vil bruge. Skabeloner gemmes typisk på: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Åbn et Word-dokument med 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

Lukning af et/alle åbne dokumenter

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

Gemmer Word som PDF

Her er, hvordan du nemt automatiserer lagring af Word-dokumenter som PDF-filer.

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

Indsættelse af sidehoved og sidefod

Denne kode angiver sidehoved og sidefod på dit Word-dokuments første side.

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

Yderligere Word-makro-ideer

Her er et par flere ideer, som vi vil poste i den kommende fremtid.

1. Find og erstat (eksekvermetode)
2. Indsæt et afsnit (før og efter et valg)
3. Udskrivning af dokumenter programmatisk
4. Arbejde med borde

Dette afslutter vores tutorial for i dag. Som du lige har set, er der meget at gøre med Word-makrooptageren og VBA-makroer i Word. Hvis du leder efter mere specifik hjælp, der går ud over omfanget af denne vejledning, så kontakt os venligst via vores kontaktformular .