הצעת ייעול | יישור טורים עד השוליים

[שלמה11]

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

[שאלתיאל]

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

[שלמה11]

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

[שאלתיאל]

פוסט זה נמחק!

[שאלתיאל]

@שלמה11 האמת היא שאתה צודק וביישור טורים בשולחן העורך הוא מעגל כלפי מטה משא"כ בעיצוב תורני אבל עדיין אם תוסיף את העיגול כלפי מטה של היישר עמוד (על הטור השמאלי) לעיגול כלפי מטה של היישור טורים (בטור הימני), ותוסיף לזה את זה שהמרווח בכל הפיסקאות הוא אחיד ולא שונה, תגלה שההפרש בין הטור הימני לשוליים קצת מדי גדול, ולכן אני רוצה לעשות כמו היישור עמוד רק על כל טור בנפרד, ושהמרווח אחרי פיסקה לא יהיה אחיד בכל הפיסקאות בטור אלא יהיה אפשרות שהוא יהיה שונה ב 0.05, ובכך היישור מגיע עד לשוליים ב 100% ואם נוסיף אפילו 0.05 נק' לאחת הפיסקאות בטור השורה האחרונה תגלוש כבר לטור הבא
בגדול הרעיון שלי הוא לעשות כמו היישר עמוד, להגדיל את המרווח עד שעוברת שורה לטור הבא ואז להחזיר אותה אחורה באמצעות הקטנת המרווח פיסקה פיסקה ולא הכל ביחד עד שהשורה שגלשה לטור הבא חוזרת. (לדעתי אפשר לדעת את זה באמצעות ספירת שורות בטור, יכול להיות שיש דרך יותר קלה לדעת אם גלשה שורה לטור הבא).

[שלמה11]

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

[שאלתיאל]

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

Spoiler

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

[שלמה11]

פוסט זה נמחק!

[שלמה11]

@שאלתיאל מוזר מאוד מה שאתה אומר, היישור טורים של תוסף שולחן העורך אמור להביא תוצאות מדוייקות של 0.1, לגבי היישור של העמודים ייתכן שאתה צודק - אבל לא מסתבר

[שאלתיאל]

@שלמה11 אתה צודק, אבל עדיין כל הפיסקאות הם עם אותו מרווח בכל הטור ולכן אם יש 5 פיסקאות בטור והיישור הוא בדיוק של 0.1 זה כבר מצטבר ל0.5 נקודות וזה כבר משמעותי,
הפתרון שלי: א. לעשות שחלק מהפיסקאות בטור יהיו נניח לדוגמא 8.55 וחלק יהיו 8.6 ואז הטור מוזח עד התחתית לגמרי. את זה עושים על ידי שאחרי שהשורה האחרונה עוברת לעמוד הבא מחזירים אותה אחורה לא באמצעות הורדת המרווח בכל הפסקאות אלא פיסקה פיסקה עד שהיא חוזרת, כדאי לראות את הספויילר בפוסט הראשון כאן.)
ב. למה ביישור טורים הוא בדיוק של 0.1 ולא 0.05 שזה המינימום? יותר יפה 0.05.
אגב מה עם @pcinfogmach אין לו איזה פתרון לזה?

[יאיר הבהיר]

@שאלתיאל כתב בהצעת ייעול | יישור טורים עד השוליים:

0.05 שזה המינימום

ולמה לא האפס המושלם? אין כזה דבר?

[שאלתיאל]

@יאיר-הבהיר

@יאיר-הבהיר כתב בהצעת ייעול | יישור טורים עד השוליים:

ולמה לא האפס המושלם? אין כזה דבר?

להוסיף 0 אחרי פיסקה????????

[יאיר הבהיר]

@שאלתיאל זה היה נשמע לי שהיישור יכול להתבצע עד דיוק של 0.05 ולא יותר...

[שאלתיאל]

@יאיר-הבהיר אני ינסה להסביר:
אם נניח הטור הימני כולו הוא 455.75 נקודות (כולל כל השורות והמרווחים אחרי פיסקה, אז אני צריך לעשות שגם הטור השמאלי יהיה 455.75 נקודות, רק מה לעשות שכרגע הוא 450.7, לכן אני צריך להוסיף לכל פיסקה 2.5 (נניח שיש בטור השמאלי 3 פיסקאות, אחרי הפיסקה האחרונה לא מוסיפים) ואז הטור יהיה 455.7, בשיטה שלי לפיסקה העליונה נוסיף 2.5 ולפיסקה מתחת נוסיף 2.55 ואז זה יצא 455.75 בדיוק.
כיום ביישור טורים הוא מוסיף רווח אחיד לכל הפיסקאות בטור, ולא זו בלבד, אלא שהוא מחשב את ההפרש בין הטורים ואם נניח ההפרש הוא 10.75 ויש 4 פיסקאות בטור אז הוא עושה 10.75 לחלק ל3 = 3.583 הוא מעגל את זה כלפי מטה ל3.5 ומוסיף 3.5 אחרי כל פיסקה, אני שאלתי שאפשר לעגל גם ל 3.55 כי המינימום שאפשר להוסיף אחרי פיסקה זה 0.05.
מקוה שהייתי ברור.

[pcinfogmach]

לא הצלחתי להבין מה הבעיה ומה הפתרון. אריכות הדברים מאוד מקשה עלי - איתכם הסליחה.
הבעיה היא שהיישור לא מיישר מספיק?

Spoiler

אישית, לא פיתחתי את התוספים שלי לצורך עימוד ספרים שלמים, אלא בעיקר לעימוד בסיסי של קונטרסים. לכן גם הזנחתי כמה דברים כמו יצירת תוכן עניינים, מפני שבדרך כלל אפשר להסתדר היטב עם הכלים הקיימים, והשקעתי יותר רק במה שהיה ממש נחוץ.
במרבית המקרים — מה שיש כבר מספק בהחלט.
אמנם, אם היה לי יותר זמן, הייתי שמח לבנות מחדש את כל העיצוב התורני מהיסוד, אך מאחר שכבר נוספו יכולות חדשות בתוך התוסף כלי קודש, אני מעדיף כעת להתמקד בהן.
אם יש צורך בתוספת כלשהי לעימוד קונטרסים שאינה קיימת בכלי קודש — אשמח בעזרת ה' להוסיף אותה עם הזמן (בלי נדר).
בקשות מסוג זה ניתן להשאיר כאן https://github.com/KleiKodesh/KleiKodesh/issues

[שאלתיאל]

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

• שהטורים יגיעו עד השוליים ממש ובכך הטורים יהיו מיושרים גם יחסית לעמודים אחרים
• שהטורים יהיו מתוחים עד המקסימום ברמה של 0.05 נק', איך אני עושה את זה, אני מוסיף לכל הפיסקאות במרווח אחרי פיסקה עד שהם מגיעות לשוליים, ואז אני מוסיף לכל פיסקה בנפרד 0.05 (שיכול להיות פיסקה אחת עם 8.55 אחריה ופיסקה אחת עם 8.5) עד שזה מגיע לשוליים במקסימום.

על הדרך המדוייקת לעשות את זה תקרא בספויילר בפוסט הראשון כאן.

[pcinfogmach]

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

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

את האפשרות הזו נסית? יש לו מעלות וחסרונות ולפעמים זה מסתבך בקיצער צריך לדעת איך להתעסק איתו אבל בהחלט שווה בדיקה ויש מעמדים שמתמשים בו)

[שלמה11]

@pcinfogmach האפשרות הזאת לא עובדת כאשר יש 2 טורים בכתיבה העברית מימין לשמאל (וורד משתבש לחלוטין!!)
@שאלתיאל
היישור טורים של תוסף שולחן העורך מגדיל את המרווח בין הפיסקאות לפי אחוזים, ולאחמ"כ מוסיף בפיסקאות הראשונות מרווח נוסף - כמו שאתה מבקש.
בסיום הפעולה הטורים שווים עד 0.1 נקודה שזה 0.035 מ"מ, נראה לך שצריך יותר???
אתה צודק רק לגבי יישור עמודים - אבל שם נראה לי שפחות חשוב דיוק כ"כ רציני!
עם זאת ראיתי שיש באגים שונים ביישור - כרגע אין לי זמן לבדוק את זה...
אני מצרף לך את הקובץ שהעלת כאן בשרשור מקודם - לאחר היישור, תסביר איפה הבעיה?
יישר-עמוד.docx

[שאלתיאל]

@pcinfogmach
אכן כמו ש @שלמה11 כתב האופציה הזאת לא עובדת

בסיום הפעולה הטורים שווים עד 0.1 נקודה שזה 0.035 מ"מ, נראה לך שצריך יותר???

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

עכ"פ בקשתי מ AI לעשות את זה וזה מה שהוא נתן (כמובן שזה לא עובד...)

Sub StretchColumnToBottom()
    Dim doc As Document
    Dim selectionRange As Range
    Dim totalLines As Long
    Dim footerLines As Long
    Dim originalLineCount As Long
    Dim currentLineCount As Long
    Dim para As Paragraph
    Dim spaceAfter As Single
    Dim columnRange As Range
    Dim i As Long
    Dim endOfColumn As Boolean
    
    Set doc = ActiveDocument
    Set selectionRange = Selection.Range
    Set columnRange = selectionRange.Duplicate
    
    ' שלב 1: ספירת השורות בטור אליו נמצא הסמן
    totalLines = CountLinesInColumn(columnRange)
    
    ' שלב 2: ספירת שורות בהערות שוליים אם יש
    footerLines = CountFootnotes(doc)
    
    originalLineCount = totalLines + footerLines
    currentLineCount = originalLineCount
    
    ' שלב 3: לולאת הגדלת הרווחים
    Do While currentLineCount = originalLineCount
        ' שלב 4: סמן את כל הפיסקאות בטור, חוץ מהאחרונה
        For Each para In columnRange.Paragraphs
            If para.Index < columnRange.Paragraphs.Count Then
                spaceAfter = para.Range.ParagraphFormat.SpaceAfter
                para.Range.ParagraphFormat.SpaceAfter = spaceAfter + 0.05
            End If
        Next para
        
        ' שלב 6: בדוק אם יש שינוי במספר השורות
        currentLineCount = CountLinesInColumn(columnRange) + footerLines
        
        If currentLineCount <> originalLineCount Then
            Exit Do
        End If
    Loop
    
    ' שלב 7: סוף לולאה ראשונה
    
    ' שלב 8: בחר את הפיסקה הראשונה בטור
    Set para = columnRange.Paragraphs(1)
    
    ' שלב 9: לולאת הקטנת הרווחים
    Do
        ' שלב 10: בחר את הפיסקה הבאה או את הראשונה אם הגעת לאחרונה
        If para.Index < columnRange.Paragraphs.Count Then
            Set para = columnRange.Paragraphs(para.Index + 1)
        Else
            Set para = columnRange.Paragraphs(1)
        End If
        
        ' שלב 11: הורד 0.05 נקודות מהמרווח אחרי הפיסקה
        spaceAfter = para.Range.ParagraphFormat.SpaceAfter
        para.Range.ParagraphFormat.SpaceAfter = spaceAfter - 0.05
        
        ' שלב 12: בדוק אם מספר השורות השתנה
        currentLineCount = CountLinesInColumn(columnRange) + footerLines
        
        If currentLineCount = originalLineCount Then
            Exit Do
        End If
    Loop
    
    ' שלב 13: סוף לולאה שנייה
End Sub

Function CountLinesInColumn(columnRange As Range) As Long
    Dim para As Paragraph
    Dim totalLines As Long
    totalLines = 0
    For Each para In columnRange.Paragraphs
        totalLines = totalLines + para.Range.ComputeStatistics(wdStatisticLines)
    Next para
    CountLinesInColumn = totalLines
End Function

Function CountFootnotes(doc As Document) As Long
    Dim footnote As Footnote
    Dim totalLines As Long
    totalLines = 0
    For Each footnote In doc.Footnotes
        totalLines = totalLines + footnote.Range.ComputeStatistics(wdStatisticLines)
    Next footnote
    CountFootnotes = totalLines
End Function

[שלמה11]

@שאלתיאל תתייחס לקובץ ששלחתי לך - בדקתי אותו הוא מיושר בדיוק!!