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

[pcinfogmach]

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

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

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

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

[pcinfogmach]

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

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

מחילה מכבודו לא הבנתי את בקשתך...
לכאורה כוונתך ליישור טורים שכבר קיים בתוסף?

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

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

[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 כך זה נראה אצלי, ביישור לשני הצדדים.