בירור | מיזוג דואר בחוברות

[e613]

אני כותב דף קשר לילדים ב"תת כל שבוע
דף הקשר בנוי מ 24 דף חוברת
ומעוניין לעשות שם של כל תלמיד בפתח החוברת
כאשר אני עושה מיזוג דואר רגיל זה עושה לי הכל כחוברת אחת ושאני שולח להדפסה הוא מדפיס כחוברת אחת בלבד (מאוד קשה להגדיר על כל תלמיד תדפיס לי מעמוד עד עמוד וכו )
ראיתי פורום של פרוג שמסביר איך לעשות קוד מאקו אבל זה לא הצלחתי אשמח לעזרתכם
https://www.prog.co.il/threads/חוברות-במיזוג-דואר.633228/

@שלמה11 אולי אתה יודע לבנות לזה קוד מסודר?

[דאנציג]

@e613
באיזה שלב נתקעת?
תוכל לראות כאן מדריך להפעלת מאקרו בוורד.
וזה המאקרו שמובא שם:

Sub הדפסת_רשומות()

Dim i As Integer
i = 1

With ActiveDocument.MailMerge.DataSource
    .ActiveRecord = wdFirstRecord

    Do
        Application.PrintOut
        If .ActiveRecord <> .RecordCount Then
            .ActiveRecord = wdNextRecord
        End If
        i = i + 1
    Loop Until .ActiveRecord = .RecordCount
End With

Application.PrintOut

MsgBox "הדפסת בהצלחה " & i & " רשומות"
End Sub

Spoiler

@pcinfogmach אני חושב שזה יעניין אותך

[pcinfogmach]

פוסט זה נמחק!

[יש שדה]

הסתדרת?
אם זה לא דחוף אוכל ליצור איתך קשר בהמשך הרחוק

[e613]

@יש-שדה
לא הסתדר לי

[יש שדה]

הדפסת מיזוג לחוברות בוורד.txt

[יש שדה]

הקלטה 2024-11-18 141526~1.mp4

זה הוראות איך לעשות מיזוג דואר לחוברות כשהמקור הוא אקסל.
החצי השני של הקובץ הוא כשהמקור הוא וורד

[e613]

@יש-שדה
מה הם שורות המאקו שלך ?

[e613]

@יש-שדה

זה השגיאה שאני מקבל

[יש שדה]

אם אתה מחובר "עכשיו" למחשב אוכל להשתלט "ולנסות" לעזור.
אני לא מבין בזה כ-ל-ו-ם! אני יכול פשוט לחזור על הפעולות שעשיתי אצלי

[דאנציג]

@e613
לפי התמונה שהעלית, כתוב לך: "END SUB" לא במקום.

פעולות:
תבדוק בסוף המאקרו האם כתוב שם: "end sub" (ללא גרשיים כמובן). אם כן תמחק את הכיתוב המוכחל בתמונה. אם לא, תגזור ותדביק בסוף המאקרו.

כמו כן ראיתי שהיה בעיה בההעתקה, ונוסף שם כמה דברים לא במקום. ערכתי את הפוסט לעיל.
כמו כן תוכל להוריד את הקובץ הזה, הכנסתי בו את שתי המאקרו, כך שכאשר מסמך זה יהיה פתוח תוכל להפעיל את המאקרו על ידי לחיצה על ALT + F8 ולבחור בשם המאקרו להפעלה.

Spoiler

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

בהצלחה
הדפסת רשומות.docm

[e613]

@דאנציג
תודה רבה זה עבד לי

[e613]

@דאנציג
יש לי בתת כ 300 חוברות וכל פעם שאני עושה לוקח כמעט שעה שהמחשב נדפק
אולי יש משהו שיותר קל ולא מעמיס על המערכת

[דאנציג]

@e613
לא יודע.

[e613]

@דאנציג
גם אצלך זה כך ?

[דאנציג]

@e613
אני לא יודע מה זה מיזוג דואר!
מעולם לא עשיתי מיזוג דואר - לא נצרכתי לזה.
מאקרו הצלחתי להפעיל, ביקשת מצאתי מאקרו, עשיתי לך העתק הדבק... ובדקתי שהוא עובד (אחרי שכתבת שהוא לא עובד).

[e613]

@דאנציג
עשיתי בדיוק מה שאמרת לי וזה לוקח לי המון זמן במחשב בכמות גדולה של החוברות

[דאנציג]

@e613
את זה אני הבנתי, אבל אני לא מבין במיזוג דואר כלל!
וגם במאקרו אני לא מבין, אני יודע איך להפעיל מאקרו, מצאתי מאקרו כתוב, עשיתי העתק הדבק...
אם יש משהו שיכול לגרות למאקרו לרוץ, כנראה שיש, אבל אני לא יודע!

הרבה הצלחה

[מאקרו]

@e613 מנסיון שלי, הכי פשוט זה להפוך את הקובץ לPDF, ואח"כ לחלק אותו לקבצים נפרדים ע"י תוכנות PDF שתומכות בזה (למשל X-EDITOR, יש בפורום חינמי/פרוץ),
אתה מגדיר לתוכנה שכל 24 עמודים תיצור קובץ חדש וזה מפצל ממש תוך כמה שניות.

[e613]

@מאקרו
ואח״כ להדפיס 300 קבצים נפרדים זה לא יהיה ראלי