CorelDraw bestanden CDR converteren naar JPG

Ik heb een probleem met VBA dat ik gebruik in CorelDraw.
Ik kan wel één bestand van CDR naar JPG converteren maar ik vind geen oplossing om een volledige bunch door één macro te converteren.

Hierbij de macro die ik gebruik maar ik moet telkens het CDR bestand ingeven en het JPG bestand, daarna starten met F5.

Sub Convert1()
Dim doc1 As Document
Set doc1 = OpenDocument("E:\COREL\Corel X3\CGX3_CLPART (H)\Clipart\Borders\Corners\X3001338.cdr")
Dim expflt As ExportFilter
Dim pal As StructPaletteOptions
Set pal = New StructPaletteOptions
With pal
.PaletteType = cdrPaletteUniform
.DitherType = cdrDitherOrdered
.DitherIntensity = 100
End With
Set expflt = doc1.ExportBitmap("E:\JPG bestanden\Borders\Hoeken\Border HOEK X3001338.jpg", cdrJPEG, cdrAllPages, cdrPalettedImage, 516, 621, 41, 41, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone, pal)
With expflt
.Progressive = False
.Optimized = True
.SubFormat = 0
.Compression = 10
.Smoothing = 10
.Finish
End With
End Sub

Kan iemand mij daar mee helpen
Dankbij voorbaat

Probleem opgelost

Bedankt voor de hulp.

De oplossing was heel simpel.