Sub NotesCopyToInline()
' Paul Beverley - Version 18.01.23
' Copies notes into inline notes in brackets

' Guillemets
' myOpen = ChrW(171)
' myClose = ChrW(187)

' myOpen = "["
' myClose = "]"

' myOpen = "{"
' myClose = "}"

myOpen = "<"
myClose = ">"

' If Word throws up and error 4605 about pasting
' increase the delay value to, say, 1000
myDelay = 500

If ActiveDocument.Endnotes.count > 0 Then
  For Each myNote In ActiveDocument.Endnotes
    myNote.Range.Copy
    myEnd = myNote.Footnotes(1).Reference.End
    Set rng = ActiveDocument.Range(myEnd, myEnd)
    rng.InsertAfter Text:=myClose
    rng.Collapse wdCollapseStart
    For i = 1 To myDelay
      DoEvents
    Next i
    rng.Paste
    rng.Collapse wdCollapseStart
    rng.InsertAfter Text:=myOpen
  Next myNote
End If
If ActiveDocument.Footnotes.count > 0 Then
  For Each myNote In ActiveDocument.Footnotes
    myNote.Range.Copy
    myEnd = myNote.Reference.End
    Set rng = ActiveDocument.Range(myEnd, myEnd)
    rng.InsertAfter Text:=myClose
    rng.Collapse wdCollapseStart
    For i = 1 To myDelay
      DoEvents
    Next i
    rng.Paste
    rng.Collapse wdCollapseStart
    rng.InsertAfter Text:=myOpen
  Next myNote
End If
End Sub