בירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני

[שלמה11]

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

Function getFootnotesRange(pageRange As Range) As Range

    Dim pageNum As Integer
    Dim originalEnd As Integer
    Dim RangePosition As Double

    pageNum = pageRange.Information(wdActiveEndPageNumber)

    If pageRange.Footnotes.Count > 0 Then
        Set getFootnotesRange = pageRange.Footnotes(1).Range
        With getFootnotesRange
            .Collapse wdCollapseStart
            Do
                originalEnd = .End
                RangePosition = .Characters.Last.Information(wdVerticalPositionRelativeToPage)
                .MoveEnd wdWord, 1
                If RangePosition > .Characters.Last.Information(wdVerticalPositionRelativeToPage) Then Exit Do
                If originalEnd = .End Then Exit Do
                If .Characters.Last.Information(wdActiveEndAdjustedPageNumber) > pageNum Then Exit Do
            Loop
            .End = originalEnd
        End With
    End If
End Function

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

[menajemmendel]

@שלמה11 התחלת כבר עם טעות בשורה 9, זה לא השאלה אם יש יותר מ0 אלא יותר מ1, אם יש רק הערה 1 לא צריך לעשות כלום.
וחבל לבזבז את הזמן עם GPT, הוא לא קולט טוב את הניואנסים האלה (אני לא ח''ו מתנגד לידידנו GPT, רק שלצרכים האלה לא מועיל,

[שלמה11]

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

[pcinfogmach]

@שלמה11 כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

דבר שני זה לא עם GPT

עלה והצלח.

[מניין]

@שלמה11 בכל זאת יש סיבה אחרת שזה לא יכול להתחלק, כי ההערות הבאות שהם מוסתרות יעברו לעמוד הבא.