רציתי לדעת איך אני מסיר כותרת מהכותרת העליונה, זאת אומרת הגדרתי שיהיה כותרת 1 וכותרת 2, וכעת אני מעוניין למחוק את כותרת 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


נ.ב. להבא, פותחים אשכול חדש על הנושא.
לא נהוג להקפיץ אשכולות ישנים, בפרט שזה דבר אחר לגמרי.
@יש שדה אשמח להסבר על אופן הפעולה של המאקרו הזה, עד היום לא הצלחתי לעשות מיזוג דואר בחוברת והדפסי בפעמיים, מה זה בעצם יעשה לי?
ההצעה שאמרו להגדי את הוורד לחוברת משנה לגמרי את העיצוב כך שזה כלל לא רלוונטי.
תודה רבה.
 
שייך לעשות מיזוג דואר של תמונות?
יש לי את התמונות של הנמענים ואני רוצה לשלבם בקובץ.
תודה לכל העוזרים.
 
@ עץ הדעת המייל שלי הוא YSG0527 גימייל
אמי יותר זמין שם.
לפה נכנסתי במקרה
 
האם יש אפשרות לעשות פיזור שווה של מילים בוורד?
לפעמים יש מילים ארוכות כך שהשורה נראית ריקה בזמן שאפשר "ללוות" מילים קצרות משורה קודמת כדי שיראה מפוזר באפן שווה.

הבאתי דוגמא שהייתי צריך לעשות פיזור באופן ידני.
 

קבצים מצורפים

  • פיזור שווה של מילים בוורד.docx
    KB 14 · צפיות: 39
האם יש אפשרות לעשות פיזור שווה של מילים בוורד?
לפעמים יש מילים ארוכות כך שהשורה נראית ריקה בזמן שאפשר "ללוות" מילים קצרות משורה קודמת כדי שיראה מפוזר באפן שווה.

הבאתי דוגמא שהייתי צריך לעשות פיזור באופן ידני.
1644771196164.png
 
לא הבנתם את השאלה.
דווקא בגלל שזה מיושר לשני הצדדים יש רווח גדול כשיש מילים ארוכות עיין בקובץ המצורף.
 
בקובץ המצורף רואים את השורה הראשונה "צפופה".
ואת השורה שמתחתיה בגלל המילים הארוכות "ריקה".

אמנם המילה הבאה ארוכה מידי ולכן היא עוברת לשורה הבאה,
אבל אפשר ללווות מילים מהשורה הקודמת, וכך זה נראה יותר "נורמלי".
כמו שאני עשיתי ידנית בדוגמא המצורפת.
 
יש אפשרות להגדיל באופן ידני את המרווח שבין האותיות
יש לסמן את כל השורה, ובכרטיסיה של הגופן>מתקדם>מרווח יש לסמן בכמה נקודות להגדיל
בקובץ המצורף סימנתי את השורה שהגדלתי בה את המרווח ב-2 נקודות
 

קבצים מצורפים

  • פיזור שווה של מילים בוורד.docx
    KB 14 · צפיות: 34
לא צריך בשביל זה מאקרו, יש שדה שפותר את הבעיה,
במקום שדה {PAGE} רגיל צריך לעשות שדה {DOCVARIABLE {PAGE}},
(דהיינו שדה בתוך שדה)
אפשר להסביר טיפה יותר מה עושים בדיוק?
 

פרוגבוט

תוכן שיווקי
פרסומת

הצטרפות לניוזלטר

איזה כיף שהצטרפתם לניוזלטר שלנו!

מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!

לוח מודעות

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק כה

אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
נקרא  2  פעמים
למעלה