צפה בקובץ המצורף 540118תודה על העזרה. זה ממש חשוב לי.
כמו"כ אני רוצה לעשות מיזוג דואר בשתי מיקומים בחוברת, יש סיכוי או שזה כבר מופרך?
1. עשיתי מיזוג ובסוף עשיתי ערוך מסמכים נפרדים. במסמכים הנפרדים הפעלתי את הפקודה.עשית כבר מיזוג דואר?
כי לפי השגיאה נראה שאין לו את האובייקט של מיזוג....
מיזוג בשני מיקומים של אותו שם או של שני שמות?
לאותו שם כבר כתב דג סלומון
לשני שמות, הוא גם כתב לשים טבלה,
אבל ממש אין צורך בטבלה,
באשכול הנוכחי בהודעה הראשונה שלי, רשום איך לעשות את זה.
מוסיפים את הכלל לפני המופע השני של המיזוג.
1. עשיתי מיזוג ובסוף עשיתי ערוך מסמכים נפרדים. במסמכים הנפרדים הפעלתי את הפקודה.
2. אם אעשה שתי שדות באותה חוברת הוא פשוא יעשה את השם השני כבר בחוברת הראשונה.
תודה מראש
@יש שדה אשמח להסבר על אופן הפעולה של המאקרו הזה, עד היום לא הצלחתי לעשות מיזוג דואר בחוברת והדפסי בפעמיים, מה זה בעצם יעשה לי?@יש שדה
העלתי כאן בעבר מאקרו לזה.
הקוד שם התבלבל מהחלפת האתר.
הנה הוא מסודר:
קוד: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
נ.ב. להבא, פותחים אשכול חדש על הנושא.
לא נהוג להקפיץ אשכולות ישנים, בפרט שזה דבר אחר לגמרי.
@יש שדה אשמח להסבר על אופן הפעולה של המאקרו הזה, עד היום לא הצלחתי לעשות מיזוג דואר בחוברת והדפסי בפעמיים, מה זה בעצם יעשה לי?@יש שדה
העלתי כאן בעבר מאקרו לזה.
הקוד שם התבלבל מהחלפת האתר.
הנה הוא מסודר:
קוד: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
נ.ב. להבא, פותחים אשכול חדש על הנושא.
לא נהוג להקפיץ אשכולות ישנים, בפרט שזה דבר אחר לגמרי.
@יש שדה אשמח להסבר על אופן הפעולה של המאקרו הזה, עד היום לא הצלחתי לעשות מיזוג דואר בחוברת והדפסי בפעמיים, מה זה בעצם יעשה לי?@יש שדה
העלתי כאן בעבר מאקרו לזה.
הקוד שם התבלבל מהחלפת האתר.
הנה הוא מסודר:
קוד: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
נ.ב. להבא, פותחים אשכול חדש על הנושא.
לא נהוג להקפיץ אשכולות ישנים, בפרט שזה דבר אחר לגמרי.
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קיט ב'
ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ: