The following VBA example deletes all page sizes that are not predefined, including custom page sizes.
Sub Test()
Dim ps As PageSizes
Dim d As Document
Dim p As PageSize
Set d = CreateDocument
Set ps = d.PageSizes
For Each p In ps
If Not p.BuiltIn Then
p.Delete
End If
Next p
End Sub