expression.SuppressEndnotes
expression Required. An expression that returns a PageSetup object.
Remarks
This property takes effect only if the Location property is set to wdEndOfSection.
Example
This example suppresses endnotes in the first section of the active document.
If ActiveDocument.Endnotes.Location = wdEndOfSection Then
ActiveDocument.Sections(1).PageSetup.SuppressEndnotes = True
End If