Forum Discussion

ManjuGauri's avatar
ManjuGauri
Copper Contributor
Feb 06, 2024

Unable to remove field codes linking reference numbers to references

I cannot remove the field codes linking reference numbers throughout my research paper (a Word document) to the list of references at the end of the document (I used EndNote for referencing). I have spent a few hours with tech support at both EndNote and at Microsoft. They were unable to find or fix the problem, so they have directed me to dedicated Word tech support. The journal that my paper was submitted to has tried the standard methods of removing the field codes and were unable to do so, and have returned the document back to me to address the problem. The journal needs the numbers to be plain text and not linked to field codes.

2 Replies

  • AntP91's avatar
    AntP91
    Copper Contributor
    I may be misinterpreting your issue, here, but have you tried Alt+F9?
  • ManjuGauri Exactly what do you mean by field codes?

     

    Maybe this macro does what you want

     

    ' Macro created 29/09/1999 by Doug Robbins to replace endnotes with textnotes at end of document

    ' to replace the endnote reference in the body of the document with a superscript number.

    '

        Dim aendnote As Endnote

        For Each aendnote In ActiveDocument.Endnotes

            ActiveDocument.Range.InsertAfter vbCr & aendnote.Index & vbTab & aendnote.Range

            aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"

        Next aendnote

        For Each aendnote In ActiveDocument.Endnotes

            aendnote.Reference.Delete

        Next aendnote

        Selection.Find.ClearFormatting

        Selection.Find.Replacement.ClearFormatting

        With Selection.Find.Replacement.Font

            .Superscript = True

        End With

        With Selection.Find

            .Text = "(a)([0-9]{1,})(a)"

            .Replacement.Text = "\2"

            .Forward = True

            .Wrap = wdFindContinue

            .Format = True

            .MatchWildcards = True

        End With

        Selection.Find.Execute Replace:=wdReplaceAll

     

     

Resources