With ActiveDocument.Endnotes .Location = wpsEndOfDocument .NumberStyle = wpsNoteNumberStyleLowercaseRoman End With