וורד מאקרו לוורד: הכנס את מספר הערת שוליים בטקסט

[ישורון קובי]

נשאלתי שאלה:
האם ניתן להמיר את ההפניה של ההערת שוליים לטקסט שיציג את המספר האמיתי שמוצג כעת.

למשל:

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

על פי מאקרו שראיתי כאן, עשינו מאקרו שעושה את העבודה.
השימוש במאקרו על אחריות המשתמש, ותחילה מומלץ לעשות על הקובץ דוגמא שצירפנו.
המאקרו מוגדר כפעולת הסטוריה אחת, כך שלבטל את הפעולה מספיק ללחוץ Ctrl-Z.

וכך נראית התוצאה:

Sub FootnotesNumToText()
    Dim oFootnote As Footnote
    Dim rngFootnote As range
    Dim strRef As String
    Dim i As Long
  
    Application.UndoRecord.StartCustomRecord ("מאקרו מספור")
  
    For Each oFootnote In ActiveDocument.Footnotes
        Set rngFootnote = oFootnote.Reference
      
        With rngFootnote
            i = oFootnote.Index
          
            'To get the actual reference text, we need to cross-reference it!
            .Collapse wdCollapseStart
            .InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, i, False, False
            .MoveEnd wdCharacter, 1
            strRef = .Fields(1).Result
            .Fields(1).Delete
          
            'Insert the reference text surrounded by curly braces
            .InsertBefore "{" & strRef & "}"
        End With
      
        'Insert the reference text surrounded by curly braces in the footnote text
        oFootnote.range.InsertBefore "{" & strRef & "} "
    Next oFootnote
  
    Application.UndoRecord.EndCustomRecord
End Sub

 

[שלימות]

אשריך הרב קובי, עזרת לי מאוד!