השתמש בברקודים במיזוג דואר ב-Word
Word 365, 2024, 2021, 2019, 2016, 2013, 2010, 2007, 2003
1
פתח מסמך מיזוג דואר קיים או צור מסמך חדש.
2
הוסף את אובייקט הברקוד למסמך המיזוג שלך. מקם אותו במקום הרצוי במסמך והגדר את המאפיינים של האובייקט, כגון סוג הברקוד וגודלו.
זה ייראה כמו צילום המסך הבא, לדוגמה. שימו לב לשם אובייקט הברקוד - המודגש כאן בצהוב. בדרך כלל זה יהיה Barcode1.

3
נדרש מאקרו לצורך מיזוג הדואר. ניתן להוסיף את המאקרו הבא. העתיקו אותו ללוח והדביקו אותו משם לעורך Visual Basic for Applications של Word:
Sub MailMerge_example_with_ActiveBarcode()
' Macro shows how to print barcodes in a mail merge.
if MsgBox("Do you want to print mail merged documents?", vbYesNo, "Question") = vbYes Then
'counter to zero
num = 0
'first record is number one
ActiveDocument.MailMerge.DataSource.ActiveRecord = 1
Do
' Fill ActiveBarcode text property now
ActiveDocument.Barcode1.Text = ActiveDocument.MailMerge.DataSource.DataFields("Productcode").Value
' do not prompt for printing...
Options.PrintBackground = True
' print page
ActiveDocument.PrintOut
' recognize old record
lastone = ActiveDocument.MailMerge.DataSource.ActiveRecord
' select next record
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
'count
num = num + 1
' check if there are new ones
Loop While ActiveDocument.MailMerge.DataSource.ActiveRecord <> lastone
' notify user
MsgBox (Str(num) + " pages printed!")
End If
End Sub
4
התוצאה נראית כך. בצילום המסך ניתן לראות גם היכן הוכנס המאקרו.

5
כעת התאם את המאקרו למסמך המיזוג הדואר שלך:
אם שם אובייקט הברקוד שלך אינו Barcode1, שנה אותו במאקרו - סימן צהוב משמאל בצילום המסך.
כעת יש לשנות את שם השדה ממקור הנתונים, שישמש עבור הברקוד. בדוגמה זו, נעשה שימוש ב-Productcode - הסימון הצהוב מימין בצילום המסך. יש לשנות את השם בתוך המרכאות.

6
שמור את המסמך והפעל את המאקרו להדפסת ניסיון.
טיפ: התחל את ההדפסה הניסיונית עם כמות קטנה של נתונים, כך שיהיו פחות טעויות הדפסה במקרה של תקלה.

7
בוצע.