מאקרו Word – דוגמאות מעשיות

Bold – מדגיש טקסט חשוב במסמך

Selection.Font.Bold = True

InsertTable – יוצר טבלה עם 3 שורות ו־3 עמודות

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:=3

Citation – מוסיף ציטוט לפי סגנון APA

ActiveDocument.Citations.Add Selection.Range, "BookAuthorYear", "APA"

מסמך אקדמי מורכב – כותרת, תוכן עניינים, ציטוט, ביבליוגרפיה

Selection.TypeText "כותרת המחקר"
Selection.Style = ActiveDocument.Styles("Title")
ActiveDocument.TablesOfContents.Add Range:=Selection.Range, UseHeadingStyles:=True
ActiveDocument.Bibliographies.Add Selection.Range, wdBibliographyStyleAPA

Italic – הופך טקסט לנטוי

Selection.Font.Italic = True

Underline – מוסיף קו תחתון לטקסט

Selection.Font.Underline = wdUnderlineSingle

AlignCenter – מיישר טקסט למרכז

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

InsertTable – יוצר טבלה עם 2 שורות ו־2 עמודות

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=2

TableBorders – מוסיף גבולות לטבלה

Selection.Tables(1).Borders.Enable = True

Footnote – מוסיף הערת שוליים

ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:="הערה אקדמית"

Bibliography – מוסיף ביבליוגרפיה בסוף המסמך

ActiveDocument.Bibliographies.Add Selection.Range, wdBibliographyStyleAPA

Index – יוצר אינדקס ערכים

ActiveDocument.Indexes.Add Range:=Selection.Range

DropDown – רשימה נפתחת בטופס

Dim dd As ContentControl
Set dd = ActiveDocument.ContentControls.Add(wdContentControlDropdownList)
dd.DropdownListEntries.Add "אפשרות א"
dd.DropdownListEntries.Add "אפשרות ב"

CheckBox – תיבת סימון בטופס

ActiveDocument.ContentControls.Add(wdContentControlCheckBox)

Macro – מאקרו בסיסי עם פתיח וסיומת

Sub מאקרו_בסיסי()
  Application.ScreenUpdating = False
  MsgBox "המאקרו רץ"
  Application.ScreenUpdating = True
End Sub

ProtectDocument – הגנה על מסמך עם סיסמה

ActiveDocument.Protect Type:=wdAllowOnlyReading, Password:="1234"

CompareDocuments – השוואת שני מסמכים

Documents.Compare Name:="A.docx", CompareTarget:=wdCompareTargetNew

LoopParagraphs – מעבר על כל הפסקאות במסמך והדגשת אלו שמכילות את המילה "חשוב"

Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
  If InStr(para.Range.Text, "חשוב") > 0 Then
    para.Range.Font.Bold = True
  End If
Next para

דוגמאות מאקרו ב־Word