@MAD אולי תשלח את השיר שגם אנחנו נהנה

@שניאור-שמח יפה מאוד רק הדיבור שלהם זוועה אבל יחסית זה ממש יפה

@es0583292679 מה עושים עם זה עכשיו הוא נחסם?

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

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

Spoiler

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

@שמואל-100 מתנצל שאני לא זוכר היכן בדיוק צריך לשנות אבל זה נמצא בקובץ> אפשרויות> מתקדם.
ושם נמצאת האופציה בהצלחה

@המלאך יישר כח פשוט מלאך

@MOSHES יפה...

כוונתי היתה על הפשטות של העתקת דברים קצרים אבל אה"נ כשבאים לעשות כמה עמודים
הצדק עמך
חודש טוב ומבורך

@MOSHES סליחה מכת"ר אבל יש משהוא יותר פשוט במקום להדפיס ואז לעשות צילום מסך
אתה יכול ללחוץ סמל+שיפט+ S וזה עושה צילום מסך של וינדוס
ואידך זיל גמור...

@MOSHES אבקש מהחבר שישאל את הג'ימיני בנושא

@MOSHES
תודה על הנדיבות לב אני בעזה"י אראה יותר מדיוק איך להשתמש בהם
יישר כח

ולגבי המקרו השלישי
חבר הביא לי מהAI פקודה שעושה חיפוש של מספר שמופיע כפול במסמך
למשל 11 ואחרי כן יש קטע שמתחיל ג"כ ב11 הוא הופך את הראשון להפניה להערת שוליים ואת השני להערת שוליים ומסמן את מה שהוא הפנה עם סימון צהוב ככה תוכל לעבור ולראות
מצו"ב אשמח לתגובה

Sub LinkNumbersForce()
    Dim doc As Document
    Dim dict As Object
    Dim regEx As Object, matches As Object, m As Object
    Dim numStr As String
    Dim pairsCount As Integer
    
    Set doc = ActiveDocument
    Set dict = CreateObject("Scripting.Dictionary")
    Set regEx = CreateObject("VBScript.RegExp")
    
    pairsCount = 0
    regEx.Global = True
    regEx.Pattern = "\d+"
    
    ' שלב 1: איסוף מספרים
    Set matches = regEx.Execute(doc.Content.Text)
    For Each m In matches
        numStr = m.Value
        If dict.Exists(numStr) Then
            dict(numStr) = dict(numStr) + 1
        Else
            dict.Add numStr, 1
        End If
    Next m
    
    ' שלב 2: ביצוע הקישור
    For Each Key In dict.Keys
        If dict(Key) = 2 Then
            Dim rng As Range
            Set rng = doc.Content
            
            With rng.Find
                .ClearFormatting
                .Text = Key
                .MatchWildcards = False
                .Forward = True
                
                If .Execute Then
                    Dim firstOccurrence As Range
                    Set firstOccurrence = rng.Duplicate
                    
                    Dim secondRng As Range
                    Set secondRng = doc.Range(rng.End, doc.Content.End)
                    
                    With secondRng.Find
                        .Text = Key
                        If .Execute Then
                            Dim noteParagraph As Range
                            Set noteParagraph = secondRng.Paragraphs(1).Range
                            
                            Dim noteText As String
                            noteText = Trim(Replace(noteParagraph.Text, Key, "", 1, 1))
                            
                            ' יצירת ההערה
                            Dim fn As Footnote
                            Set fn = doc.Footnotes.Add(Range:=firstOccurrence, Text:=noteText)
                            fn.Reference.HighlightColorIndex = wdYellow
                            
                            ' מחיקה
                            noteParagraph.Delete
                            firstOccurrence.Delete
                            
                            pairsCount = pairsCount + 1
                        End If
                    End With
                End If
            End With
        End If
    Next Key
    
    MsgBox "הסתיים! נמצאו וקושרו " & pairsCount & " זוגות של מספרים."
End Sub

@MOSHES אפשר לקבל את המידע מה הפקודות מכילות
או אותם בעצמם?

@haimil סגנון של הפניה להערות שולים
או בהחלפה חפש את ^F החלף ב: סגנון, או גודל מסויים

@975 תעשה בחלונית כל הסימונים במקום זה תעשה ללא סימונים

@975 תודה אלוףףףףףףףףףף

@אביעד
את זה אני יודע ב"ה. אני מתכוון לזה
רק שהמקרו ישלוף כל פעם את הכותרות 3 בין כותרת 2 לכותרת 2

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

יש לי מסמך עם כמה סימנים (כותרת 1) ובכל סימן כמה סעיפים (כותרת 2) ובכל סעיף כמה נושאים (כותרת 3)
ואני רוצה לעשות תוכן מותאם אישית שכל הסעיפים קטנים שהם כותרת 3 יהיו בתוכן מיוחד אחרי תחילת הסעיף

לדוגמא
סימן א'
סעיף א'
בענין ....
קושיא....
תירוץ....
יסוד....
העולה מן האמור ....

סעיף ב'

וכו'
אשמח אם משהו יכול להפנות אותי לפקודת מאקרו שתעשה את זה בצורה טובה אודה לו מאוד

@נפתלי-צבי-יהודה לא