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

[שאלתיאל]

@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]

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

[שאלתיאל]

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

[menajemmendel]

@שאלתיאל אולי אני שואל שאלת תם, אבל תאיר את עיני, אם יוצא לך לעמד הרבה פעמים, האם לא שווה לך לשלם 280 ש''ח לתוסף של רחמים, או גם הוא לא עושה עבודה טובה

[יאיר הבהיר]

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

@שאלתיאל אולי אני שואל שאלת תם, אבל תאיר את עיני, אם יוצא לך לעמד הרבה פעמים, האם לא שווה לך לשלם 280 ש''ח לתוסף של רחמים, או גם הוא לא עושה עבודה טובה

מצטרף. התוסף שלו גם נוח מאוד לשימוש, וגם אין בו שום באגים שאני יודע עליהם, ואני משתמש בו הרבה...

[שאלתיאל]

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

[שלמה11]

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

[שאלתיאל]

@שלמה11
אולי כדאי שתוסיף ליישור עמוד וכן ליישור טורים פונקציה שלוקחת את השארית שלא נכנסה במרווח אחרי פיסקה לדוגמא כשיש 5 פיסקאות ונשאר 0.15 ואי אפשר לחלק את זה ל5, לקחת את ה 0.15 לחלק ב 0.05 = 3 (שיש 3 פעמים 0.05) ולהכניס 0.05 ל3 פיסקאות העליונות ואז הדיוק יהיה מרבי, בתוצאה כל הפיסקאות יהיו עם אותו מרווח למעט ה3 פיסקאות העליונות שיהיו עם 0.05 יותר.

[pcinfogmach]

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

[שאלתיאל]

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

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

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

[pcinfogmach]

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

[איש גמזו]

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

[שאלתיאל]

@pcinfogmach
מסכים עם @איש-גמזו וגם זה הדרך הכי קלה לעמד כשכל הטורים מוזחים עד לשוליים.
אגב, מתי @שלמה11 מעלה את העדכון שלו של היישור טורים/עמוד? מצפים בקוצר רוח...

[pcinfogmach]

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

[איש גמזו]

@שאלתיאל למיטב ידיעתי @שלמה11 לא יהיה איתנו יותר מידי בזמן הקרוב

[יאיר הבהיר]

פוסט זה נמחק!