Pdf Export Files Just Rewrite Over And Over

[shelbym]

The following will Export by each layer of each page and name each .psd file that way. Hope it helps:

Sub ExportByLayer()
    Dim p As Page, l As Layer
    Dim expflt As ExportFilter
    
    For Each p In ActiveDocument.Pages
        p.Activate
        For Each l In p.Layers
            l.Shapes.All.CreateSelection 'Select objects on this layer
            
            'Export the Selection
            If ActiveSelection.Shapes.Count <> 0 Then
                Set expflt = ActiveDocument.ExportBitmap("D:\Temp\Export\MyFile-" & p.Name & "-" & l.Name & ".psd", cdrPSD, cdrSelection, cdrRGBColorImage, , , 150, 150, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
                expflt.Finish
            End If
        Next l
    Next p
End Sub

Best of luck,

-Shelby