חזרה מהערת שולים לטקסט.

[איציק - ארכיון]

תאריך ההודעה המקורית: 09/11/2023 19:49

יש איזה מקש קיצור לחזרה מההערת שולים לתוך הטקסט?

[דוד אור - ארכיון]

תאריך ההודעה המקורית: 09/11/2023 20:10

זכור לי שהיה פה למישהו מאקרו על זה
למכירה אולי

[אהד - ארכיון]

תאריך ההודעה המקורית: 09/11/2023 21:19

קליק כפול על המספר של ההערה

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 09/11/2023 21:37

תוסיף איזה קיצור שאתה רוצה, ותערות את הקוד לפי מה שטוב לך:

Sub חזור_לטקסט()
' בדוק אם הסמן נמצא בתוך הערת שוליים
If Not Selection.Footnotes.Count > 0 Then
MsgBox "הסמן אינו נמצא בתוך הערת שוליים."
Exit Sub
End If

' קבל את מספר הערת השוליים
Dim footnoteRef As Range
Set footnoteRef = Selection.Footnotes(1).Reference

' העבר את הסמן למקום המתאים בטקסט הראשי
footnoteRef.Select

End Sub

[image: Mailtrack]
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
Sender
notified by
Mailtrack
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
09.11.23,
21:37:51

[חנן - ארכיון]

תאריך ההודעה המקורית: 09/11/2023 23:26

ALT+S

מאת: [email protected]

[איציק - ארכיון]

תאריך ההודעה המקורית: 09/11/2023 23:36

תודה רבה לכולם.

[שמעון שכטר - ארכיון]

תאריך ההודעה המקורית: 10/11/2023 00:16

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

ב-יום חמישי, 9 בנובמבר 2023 בשעה 23:36:47 UTC+2, איציק כתב/ה:

[ש. הופמן S. Hof - ארכיון]

תאריך ההודעה המקורית: 10/11/2023 00:19

יש ויש.
אותו דבר: אם כבר לוחצים עם העכבר - לוחצים פעמיים על מס' הערה - ומגיעים הן להערה מהטקסט והן מהערה לטקסט.
נכון שישנה אפשרות דרך העכבר הימני ורק מהערה לטסקסט - אבל כאמור, זו דרך ארוכה ומיותרת.
----- Original Message -----
From: שמעון שכטר
To: הבית לעורך התורני
Sent: Friday, November 10, 2023 12:16 AM
Subject: Re: [הבית לעורך התורני] חזרה מהערת שולים לטקסט.

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

ב-יום חמישי, 9 בנובמבר 2023 בשעה 23:36:47 UTC+2, איציק כתב/ה:

תודה רבה לכולם.

  ALT+S

    תוסיף איזה קיצור שאתה רוצה, ותערות את הקוד לפי מה שטוב לך:

    Sub חזור_לטקסט()
        ' בדוק אם הסמן נמצא בתוך הערת שוליים
        If Not Selection.Footnotes.Count > 0 Then
            MsgBox "הסמן אינו נמצא בתוך הערת שוליים."
            Exit Sub
        End If

        ' קבל את מספר הערת השוליים
        Dim footnoteRef As Range
        Set footnoteRef = Selection.Footnotes(1).Reference

        ' העבר את הסמן למקום המתאים בטקסט הראשי
        footnoteRef.Select
    End Sub

            Sender notified by
          Mailtrack  09.11.23, 21:37:51

      קליק כפול על המספר של ההערה

        זכור לי שהיה פה למישהו מאקרו על זה
        למכירה אולי

          יש איזה מקש קיצור לחזרה מההערת שולים לתוך הטקסט?