מאקרו לוורד

[שלימות]

שלום וברכה!
דרוש מאקרו בוורד שמעביר את ההפנייה של ההערת שוליים לאחרי המילה (ההערות נמצאות לפני).
תודה רבה!

 

[נוכחות]

נסה את זה אם יעבוד (לא בטוח שיעבוד), אל תשכח לקחת גיבוי מהחומר לפני שאתה מפעיל את המקרו.

Sub MoveFootnoteReferences()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim footnoteRef As Footnote
    Dim rngWord As Range

    For Each footnoteRef In doc.Footnotes
        Set rngWord = footnoteRef.Reference
        rngWord.Collapse Direction:=wdCollapseEnd 'Collapse the range to the end
        rngWord.MoveStart wdCharacter, 1 'Move start to include next character
        rngWord.MoveEnd wdCharacter, 1 'Move end to include next character
        If Not rngWord.Characters.Last.Text = Space(1) Then 'Check if next character is not a space
            rngWord.MoveEnd wdCharacter, 1 'Include next character if it's not a space
        End If
        footnoteRef.Reference.Delete 'Delete old reference
        doc.Footnotes.Add Range:=rngWord, Text:=footnoteRef.Range.Text 'Create new footnote
    Next footnoteRef
End Sub