להורדה | תוסף עיצוב תורני לוורד

[pcinfogmach]

@עולה-במסילה
אהה הבנתי בסדר גמור אי"ה באחד מהגרסאות הבאות בלי נדר

[עולה במסילה]

@pcinfogmach מה שכדאי הוא לשים לב שהדגש במאקרו הזה יהיה על השוואה של כל עמוד זוגי ואי זוגי שלאחריו כמו שמודפס בספר יכול להיות שיהיה לך יותר קל לערוך כזה מאקרו ושוב תודה עצומה על הכל

[חוות דעת]

@עולה-במסילה כתב בלהורדה | תוסף עיצוב תורני לוורד:

@pcinfogmach לא יישור עמודים מצו"ב צילו"מ ושים לב שיש הפרש בין שני העמודים בגובה שלהם

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

הבעיה מתחילה, בסוף מאמר\פרק, שאמור להסתיים באמצע העמוד, וע"י הגדרה זו, זה ייהפך למכוער מאד, כמובן.

הפתרון לזה הוא section. צריך לעשות סקשן חדש לפני העמוד האחרון ואחרי העמוד האחרון, ובאותו עמוד להגדיר top בהגדרות עמוד, שיהיה רק למעלה. וכמובן, אם זה באמצע פסקה צריך להוסיף טאב בסוף עמוד שמקודם, כדי שהשורה יסתיים בסוף השוליים. ובנוסף צריך לקשר את הכותרות העליונות לסקשן הקודם, כי ברגע שעושים סקשן חדש, הכותרת העליונה מתאפס (כך זכור לי).

זהו הדרך העבודה שהמאקרו אמור לעשות. הקלטתי לעצמי פעם מאקרו לזה, וזה עבד לי יפה. אני מעלה את זה כאן, אולי זה יקיל עליכם את העבודה.
זה מחולק לשנים, אחד למצב שעמוד האחרון מתחיל בפסקה חדשה, ואחד למצב שעמוד האחרון באמצע פסקה. (אבל המאקרו לא מטפל כלל בקישור הכותרות העליונה, שזה עשיתי תמיד ידנית).

Sub ביטול_יישור_עמוד_בתחילת_פסקא()
'
' ביטול לפני פיסקה - יישור העמוד לשוליים
' לבטל יישור העמוד לשוליים התחתוניים בעמוד אחרון שבמאמר
'
    Selection.InsertBreak Type:=wdSectionBreakContinuous
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.8)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(2.1)
        .RightMargin = CentimetersToPoints(2)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(16)
        .PageHeight = CentimetersToPoints(25)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionContinuous
        .OddAndEvenPagesHeaderFooter = True
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = True
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosRight
        .SectionDirection = wdSectionDirectionRtl
    End With
End Sub

Sub ביטול_יישור_עמוד_באמצע_פסקא()
'
' ביטול באמצע פיסקה - יישור העמוד לשוליים
' לבטל יישור העמוד לשוליים התחתוניים בעמוד אחרון שבמאמר
'

    Selection.TypeText Text:=Chr(11)
    Selection.InsertBreak Type:=wdSectionBreakContinuous
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 6
        .SpaceBeforeAuto = False
        .SpaceAfter = 6
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 14
        .Alignment = wdAlignParagraphJustify
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .ReadingOrder = wdReadingOrderRtl
    End With
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.8)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(2.1)
        .RightMargin = CentimetersToPoints(2)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(16)
        .PageHeight = CentimetersToPoints(25)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionContinuous
        .OddAndEvenPagesHeaderFooter = True
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = True
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosRight
        .SectionDirection = wdSectionDirectionRtl
    End With
End Sub

[pcinfogmach]

@חוות-דעת כתב בלהורדה | תוסף עיצוב תורני לוורד:

היה אפשר להגדיר בהגדרות עמוד justify

מה זה?
אני מכיר בהגדרות פיסקה לא בהגדרות עמוד.....

[חוות דעת]

@pcinfogmach

[pcinfogmach]

@חוות-דעת
תוצאות גרועות

[pcinfogmach]

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

[יונתן 2]

@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:

משיהו מכיר את זה?
מהפך בעולם העורכים התורניים והמעמדים בתג, תוכנה חינמית לחלוטין כתוסף לוורד

אין שם קובץ להורדה זה עדיים קיים?
זה עדיין חינמי?
מישהו מכיר את המפתח? (אין לי מספיק הרשאות בפרוג ליצור איתו קשר)
למותר לציין שההתעניינות שלי היא למטרת מיזוג התוספים לתועלת כולם.

זה כמדומה התוסף, הורדתי את זה פעם ויתכן שמהאתר הנ"ל.

-וורד-מתקדם.zip

[חוות דעת]

@pcinfogmach ראשית כל, זה עמוד עם שני טורים, אנחנו מדברים כעת על טור אחד. שנית יש פה איזה בעיה בהערות שוליים.
בגדול, זה לא אור לצאת כך, כי אם יש מידי הרבה מרווח, אמור ליכנס עוד שורה מהעמוד הבא.

[pcinfogmach]

@חוות-דעת
מ"מ האם יש בעיה להשתמש עם היישור לקצה התחתון?

[חוות דעת]

@pcinfogmach אין שום בעיה, רק שזה 'כמחליף פרה בחמור', שהרי מה זה משנה איפה יהיה מידי הרבה מרווח, למעלה או למטה.

[pcinfogmach]

@חוות-דעת
אבל אלי זה לא יצר רווח מיותר למעלה

אגב להערות שוליים גם יש לך פיתרון קסם?

[חוות דעת]

@pcinfogmach בטח שזה ייצר, הרי כל המרווח 'הנשאר' (חוץ ממה שהוגדר בהגדרות פסקה) יעלה למעלה, בדיוק כמו שהיה למטה.

להערות שוליים יש עצה (למרות שהמצב כמו שנראה אצלך בכל מקרה לא נראה תקין), ליכנס להגדרות של המפריד, ולהוסיף שם בהגדרות פסקה מרווח למעלה או מרווח שורה עצמו יותר גדולה).

[pcinfogmach]

@חוות-דעת
אתה מדבר מנסיון כי למרות הסברא אצלי במסמך לא קרה כלום למעלה ורק למטה.
ואילו ביישור לשני צדדים לא קרה כלום.

השאלה שלי לגבי הערות שוליים הייתה לא לגבי המשמך שלי אלא לגבי יישור טורים בהערות שוליים

[חוות דעת]

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

[חוות דעת]

@pcinfogmach כך זה נראה אצלי, ביישור לשני הצדדים.

[pcinfogmach]

השאלה לדבי ההערות שוליים היא האם יש לך רעיון מוצלח ליישר טורים בהערות שוליים כאשר יש שני טרים בהערות שוליים

אגב מה קורה כאשר הטקסט אצלך הוא מיושר לשני הצדדים (כי שמתי לב שכרגע הוא מיושר לימין)

[חוות דעת]

@pcinfogmach לגבי יישור בהערות שוליים, אין לי פתרון, רק עבודה ידנית.

אין שום שינוי בין מיושר לימין למיושר לשני הצדדים.

[חוות דעת]

@pcinfogmach אני רואה שגם כשבוחרים הרבה פסקאות, עדיין לא חל העיצוב של המלה ראשונה \ חלון רק על פסקה אחד.
ובכלל היה כדאי לעשות, שיהא אפשר להחיל הפקודות, על פי סגנון, כלומר שאני בוחר סגנון, וכל הפסקאות עם אותו סגנון יחול עליו העיצוב של המלה ראשונה והחלון וכדו'.

ייש"כ

[חוות דעת]

@pcinfogmach אני חושב שכדאי להוסיף לחצן 'הפעל' בדו שיח סוגריים. ולא לסמוך על ה'אנטר' שכתוב במדריך שצריך ללחוץ.