השתמש בברקודים במיזוג דואר ב-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
בוצע.
