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

[e613]

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

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

[דאנציג]

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

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

End 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]

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