Microsoft Office Forums - View Single Post - [Solved] How can I expand the range of an endnote with multiple paragraphs in the text?

macropod · 07-11-2022, 11:04 PM

You seem to be making this overly complicated:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim eNt As Endnote
With ActiveDocument
  For Each eNt In .Endnotes
    MsgBox "EndNote:" & vbCr & eNt.Index & vbCr & "Text:" & vbCr & eNt.Range.Text
  Next
End With
Application.ScreenUpdating = True
End Sub