Hi Paul, Thanks so much for your prompt reply. I'm using EndNoteX9 to change in-text citations to unformatted citations in {}. I wrote the following code to cut and paste all the unformatted citations to endnotes, but it says "invalid or unqualified reference". Could you please help me understand why?
Sub Convert ()
Do While .Find
.Selection = "\{[!\{]@\}"
Selection.Cut
With Selection
With .EndnoteOptions
.Location = wdEndOfDocument
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
.Endnotes.Add Range:=Selection.Range, Reference:=""
End With
Selection.Paste
Loop
End Sub