בירור | הערת שוליים בריחוף

[בנימין כפיר]

@יאיר-דניאל כתב בבירור | הערת שוליים בריחוף:

וההערה תוצג לי

(ציטוט מתוך הודעה 4)
@לשכת-הרב

בוורד רגיל רק בריחוף עם העכבר על הערה, ולא כשהסמן ליד מס' הערה.

[לשכת הרב]

@בנימין-כפיר כתב בבירור | הערת שוליים בריחוף:

@יאיר-דניאל כתב בבירור | הערת שוליים בריחוף:

וההערה תוצג לי

(ציטוט מתוך הודעה 4)
@לשכת-הרב

בוורד רגיל רק בריחוף עם העכבר על הערה, ולא כשהסמן ליד מס' הערה.

לא יודע, אנחנו עושים יותר מדי לומדס בדבריו, נחכה שהוא יכתוב מה הוא בדיוק רוצה, ואנו ננסה בעזה"י לעזור לו

[יאיר דניאל]

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

[אביעד]

@יאיר-דניאל כתב בבירור | הערת שוליים בריחוף:

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

או, עכשיו נראה לי שאני מתחיל להבין, אתה מתכוון שברגע שתלחץ על מקש כלשהו ירחפו לך ה132 הערות שעשית על המסך?
בבקשה:

Sub ShowFootnotesFromPreviousPage()
    Dim fn As Footnote
    Dim currPage As Long
    Dim prevPage As Long
    Dim msg As String
    Dim refRange As Range
    
    ' קבל את מספר העמוד הנוכחי
    currPage = Selection.Information(wdActiveEndPageNumber)
    prevPage = currPage - 1
    
    If prevPage < 1 Then
        MsgBox "אין עמוד קודם במסמך.", vbExclamation, "שגיאה"
        Exit Sub
    End If
    
    msg = ""
    
    ' עבור על כל ההערות במסמך
    For Each fn In ActiveDocument.Footnotes
        Set refRange = fn.Reference
        If refRange.Information(wdActiveEndPageNumber) = prevPage Then
            msg = msg & "• " & Trim(fn.Range.Text) & vbCrLf & vbCrLf
        End If
    Next fn

    If msg = "" Then
        MsgBox "אין הערות שוליים בעמוד הקודם.", vbInformation, "אין הערות"
    Else
        MsgBox "הערות שוליים בעמוד הקודם:" & vbCrLf & vbCrLf & msg, vbInformation, "הערות בעמוד " & prevPage
    End If
End Sub

תדביק את זה בוורד:
Alt+F11 ואז תפתח חדש תשמור ותסגור

ואז תעשה לזה קיצור מקשים:
תלחץ למעלה בשורת הכלים מקש ימני, 'התאמה אישית של רצועת הכלים', ושמה יש קיצורי מקשים

שמה תבחר בקטגורייה של מאקרו ותבחר את 'הצג הערות שוליים מעמוד הקודם'- ותבחר איזה קיצור מקשים שאתה רוצה

[שלמה11]

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

[יאיר דניאל]

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

[יאיר דניאל]

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

ירחפו לך ה132 הערות שעשית על המסך?

על איזה 132 הערות אתה מדבר?

[יאיר דניאל]

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

[יאיר דניאל]

@שלמה11 ממש מוצלח המאקרו שעשית!
רק שאלה קטנה יש אפשרות שהמאקרו יפעל גם אם עומדים עם הסמן לפני מספר הערת השוליים ולא רק אחרי?
ועוד משהו, יש אפשרות שההודעה שנפתחת תיסגר באופן אוטומטי לדוגמא - אחרי כמה שניות, ולא יצטרכו ללחוץ על אישור?

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

[שלמה11]

@יאיר-דניאל אפשר לעשות את כל הנ"ל באמצעות טופס UserForm
יצרתי לך את הקובץ הזה
בשורה הבאה ניתן לשלוט בזמן הסגירה של הטופס:

Application.OnTime Now + TimeValue("00:00:05"), "CloseMyForm"