@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 יהיו בתוכן מיוחד אחרי תחילת הסעיף

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

סעיף ב'

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

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

@א.מ.ד. תודה רבה גם אני אשמח

@Yeshivisher יישר כח
רק שאלה יש אפשרות לתוכנה כזאת דהיינו בסיומת EXE.
תודה רבה

@הכוכב-הנודד תנסה לשים אותו ברשימה שחורה

@א.מ.
תודה רבה
לשימוש חופשי?

@iosi-poli וזה כרגע טוב על מערכות מולטימדיה?

@למה-באתי אשמח ליותר מידע מה צריך לעשות ומה זה דורש

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

@ARI תכתוב שזה נפתר

@CSS-0 אשמח להבין מה המטרה

יש לי בעיה עם הנוט בוק אם אני מעלה לו אתר מסויים לסרוק הוא לא טוען אותו ומתעלם ממה שמעלים לו גם בתור קובץ האם הבעיה מוכרת למשהו ומה אפשר לעשות