אשמח שתוסיפו גם לאורגניות פשוטות
ימאהה PSR-E473
תודה רבה

@דוד-2421
אולי זה יעזור לך.
https://mitmachim.top/post/943292

@יעב-ץ
אני לא מבין בזה.

Spoiler

@יעב-ץ
תבדוק האם זה יותר מהיר.

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

https://mitmachim.top/post/1270021

Sub הערת_סקירה_בהערת_שוליים()
    Dim cmt As Comment
    Dim anchor As Range
    Dim txt As String
    Dim panesBefore As Long
    Dim st As Long
    Dim rngSel As Range

    txt = InputBox("הקלד את הערת הסקירה:", "הערת סקירה")
    If txt = "" Then Exit Sub

    Application.ScreenUpdating = False

    panesBefore = ActiveWindow.Panes.Count
    st = Selection.StoryType
    Set rngSel = Selection.Range

    If Selection.Start <> Selection.End Then
        rngSel.HighlightColorIndex = wdYellow
    End If

    Select Case st
        Case wdFootnotesStory
            Set anchor = rngSel.Footnotes(1).Reference
        Case wdEndnotesStory
            Set anchor = rngSel.Endnotes(1).Reference
        Case wdMainTextStory
            Set anchor = rngSel.Duplicate
            If anchor.Start = anchor.End Then anchor.MoveEnd wdCharacter, 1
    End Select

    If anchor Is Nothing Then
        Application.ScreenUpdating = True
        MsgBox "הסמן צריך להיות בגוף המסמך, בהערת שוליים או בהערת סיום.", vbExclamation
        Exit Sub
    End If

    Set cmt = ActiveDocument.Comments.Add(anchor)
    cmt.Range.Text = txt

    If ActiveWindow.Panes.Count > panesBefore Then
        ActiveWindow.Panes(ActiveWindow.Panes.Count).Close
    End If

    Application.ScreenUpdating = True
End Sub

@יעב-ץ
מה שנוח לך, כתבתי שלדעתי מה שכתב הרב @שמעון-פרידנן יותר מקצועי.

אצלי זה תקין, תבדוק אצלך ותעדכן.

Sub הערת_סקירה_בהערת_שוליים()
    Dim cmt As Comment
    Dim anchor As Range
    Dim txt As String
    Dim panesBefore As Long
    Dim st As Long
    Dim pos As Long
    Dim lo As Long, hi As Long, mid As Long

    txt = InputBox("הקלד את הערת הסקירה:", "הערת סקירה")
    If txt = "" Then Exit Sub

    panesBefore = ActiveWindow.Panes.Count
    st = Selection.StoryType
    pos = Selection.Start

    ' הדגשת הטקסט המסומן (בתוך הערת השוליים/הסיום)
    If Selection.Start <> Selection.End Then
        Selection.Range.HighlightColorIndex = wdYellow
    End If

    Select Case st
        Case wdFootnotesStory
            lo = 1: hi = ActiveDocument.Footnotes.Count
            Do While lo <= hi
                mid = (lo + hi) \ 2
                If pos < ActiveDocument.Footnotes(mid).Range.Start - 1 Then
                    hi = mid - 1
                ElseIf pos > ActiveDocument.Footnotes(mid).Range.End Then
                    lo = mid + 1
                Else
                    Set anchor = ActiveDocument.Footnotes(mid).Reference
                    Exit Do
                End If
            Loop

        Case wdEndnotesStory
            lo = 1: hi = ActiveDocument.Endnotes.Count
            Do While lo <= hi
                mid = (lo + hi) \ 2
                If pos < ActiveDocument.Endnotes(mid).Range.Start - 1 Then
                    hi = mid - 1
                ElseIf pos > ActiveDocument.Endnotes(mid).Range.End Then
                    lo = mid + 1
                Else
                    Set anchor = ActiveDocument.Endnotes(mid).Reference
                    Exit Do
                End If
            Loop

        Case wdMainTextStory
            Set anchor = Selection.Range
            If anchor.Start = anchor.End Then anchor.MoveEnd wdCharacter, 1
    End Select

    If anchor Is Nothing Then
        MsgBox "הסמן צריך להיות בגוף המסמך, בהערת שוליים או בהערת סיום.", vbExclamation
        Exit Sub
    End If

    Set cmt = ActiveDocument.Comments.Add(anchor)
    cmt.Range.Text = txt

    ' סגירת חלונית הסקירה שנפתחה (בתצוגת טיוטה) - ורק אותה
    If ActiveWindow.Panes.Count > panesBefore Then
        ActiveWindow.Panes(ActiveWindow.Panes.Count).Close
    End If
End Sub

@האלוף-בקטנה
כדי לבדוק אם זה ממספר וירטואלי תגדיר בתפריט שכשמתקשרים לוירטואלי יהיה בסוף שלוש ספרות אחרות או המספר האישי.

סולמית, סיסמה, 2, 1,
להוספת ספרות - 2
המספר האישי - 4

@YAHBDK כתב:

אבל יש עוד מספר של אייקול

מספר ישיר לניווט, זה נ"ל הכי מוצלח.
076-5989985

@זה-אני...
נ"ל ש @אריות-שואגים התכוון לזה.

Spoiler

@menajemmendel
את זה אפשר לפתור בקלות לבחור את כל המילים ולהוסיף את ההטיות המקובלות.

@שמעון-פרידנן
כן, עובד כמו בהפעלת הקובץ עצמו.

@שמעון-פרידנן
יישר כח
מי שביקש את זה זה @יעב-ץ.

@שמעון-פרידנן
הפעם בהערת סיום עובד, אבל כשמפעילים שוב יש שגיאה:

וחוזר חלילה פעם עובד ופעם שגיאה.
ובהערת שוליים יש בעיה בשורה: m_CurrentForm.LoadNote idx, isEnd

אם רק החלק החיצוני נפגע יש אפשרות בעדינות לחלץ את הכונן עצמו ולהרכיב על אונקי אחר תואם / דומה.

Spoiler

@שמעון-פרידנן
גם בקובץ עצמו כנ"ל

Spoiler

@שמעון-פרידנן
בדקתי שוב, בהערת שוליים עובד ובהערת סיום שגיאה.

@שמעון-פרידנן
בדקתי, כנ"ל.

@שמעון-פרידנן
כן, אבל או בקובץ שהבאת [וא"א להעביר לקובץ קיים] או ע"י הקובץ BAT שהבאתי למעלה.
מה ששלחת עכשיו גם מביא שגיאה שהסמן צריך להיות בהערת שוליים, והוא כמובן שם.

Spoiler

@יעב-ץ
תפעיל את הקובץ BAT ששלחתי ותראה ישועות.
מצרף שוב [אין צורך לשנות סיומת]
https://www.jumbomail.me/j/z_3C4pXjBk-u_gx

@יעב-ץ
חבל על העבודה כבר יש מסודר ומוכן.

@שמעון-פרידנן
זה אכן מעתיק את המאקרו אבל יש שגיאה: