קורס רב טקסט - הנחה מיוחדת

Sub FootnotesNumToText()    Dim oFootnote As Footnote    Dim rngFootnote As range    Dim strRef As String    Dim i As Long      Application.UndoRecord.StartCustomRecord ("FootnotesNumToText")      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.EndCustomRecordEnd Sub