Sub ExportFiles(folderPath As String, exportDXF As Boolean, exportEPS As Boolean, exportPLT As Boolean)
    Dim doc As Document
    Set doc = ActiveDocument

    If folderPath = "" Then
        MsgBox "Please select a folder for export.", vbExclamation
        Exit Sub
    End If

    Dim fileName As String
    fileName = folderPath & "\" & doc.Name

    ' Ensure fileName is valid by removing invalid characters
    fileName = Replace(fileName, ":", "_")
    fileName = Replace(fileName, "\", "_")
    fileName = Replace(fileName, "/", "_")
    fileName = Replace(fileName, "*", "_")
    fileName = Replace(fileName, "?", "_")
    fileName = Replace(fileName, """", "_")
    fileName = Replace(fileName, "<", "_")
    fileName = Replace(fileName, ">", "_")
    fileName = Replace(fileName, "|", "_")

    On Error Resume Next

    If exportDXF Then
        Call ExportDXF(fileName & ".dxf")
    End If

    If exportEPS Then
        doc.Export fileName & ".eps", cdrEPS
        If Err.Number <> 0 Then
            MsgBox "Error exporting to EPS: " & Err.Description, vbExclamation
            Err.Clear
        End If
    End If

    If exportPLT Then
        doc.Export fileName & ".plt", cdrPLT
        If Err.Number <> 0 Then
            MsgBox "Error exporting to PLT: " & Err.Description, vbExclamation
            Err.Clear
        End If
    End If

    MsgBox "Export completed successfully!", vbInformation
End Sub

Sub ShowExportForm()
    ' Show the user form
    ExportForm.Show
End Sub

Sub ExportDXF(fileName As String)
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.CreateSelection
    Dim expopt As StructExportOptions
    Set expopt = CreateStructExportOptions
    expopt.UseColorProfile = True
    Dim expflt As ExportFilter
    Set expflt = ActiveDocument.ExportEx(fileName, cdrDXF, cdrSelection, expopt)
    With expflt
        .BitmapType = 0 ' FilterDXFLib.dxfBitmapJPEG
        .TextAsCurves = True
        .Version = 6 ' FilterDXFLib.dxfVersion9
        .Units = 0 ' FilterDXFLib.dxfInches
        .FillUnmapped = True
        .FillColor = 0
        .Finish
    End With
End Sub

ActiveSelection.objectData("Name"). value = kh-01#

if not exist "%APPDATA%\Corel\CorelDRAW Graphics Suite X6\Draw\GMS\" mkdir "%APPDATA%\Corel\CorelDRAW Graphics Suite X6\Draw\GMS"
copy KHRECTANGLEv3.01.gms "%APPDATA%\Corel\CorelDRAW Graphics Suite X6\Draw\GMS"

 Public Sub StickerExportAll()
Dim p As Page, Start
sn = 1
For Each p In ActiveDocument.Pages
p.Activate
Dim sName As String
sName = ActiveDocument.Name
If Right$(sName, 4) = ".cdr" Then sName = Left$(sName, Len(sName) - 4)
sName = sn & "-" & sName
ActiveWindow.ActiveView.ToFitPage

Dim expflt As ExportFilter
Dim expopt As StructExportOptions
Set expopt = New StructExportOptions
Dim d1 As Document
Set expflt = Nothing
Set d1 = ActiveDocument
Dim sx As Double, sy As Double

ActiveLayer.Shapes.All.GetSize sx, sy
Set expflt = d1.ExportEx(Environ("USERPROFILE") & "\Desktop\KH-EPS\" & sName & ".eps", cdrEPS, cdrCurrentPage, expopt)

With expflt
.Header = 1 ' FilterEPSLib.epsTIFFHeader
.TIFFHeaderType = 4 ' FilterEPSLib.epsTIFFColor8
.Resolution = 150
.Transparent = True
.TextAsCurves = True
.IncludeFonts = False
.ApplyICCProfile = False
.SendBitmapsAs = 1 ' FilterEPSLib.epsRGB
.MaintainOPILinks = False
.AdjustFountainSteps = False
.FountainSteps = 255
.PSLevel = 3 ' FilterEPSLib.epsPSLevel3
.UserName = "Oates Flag"
.UseJPEGCompression = False
.JPEGCompression = 2
.PreserveOverprints = True
.OverprintBlack = False
.AutoSpread = False
.FixedWidth = False
.MaxSpread = 1.41732283464567E-04
.TextSpread = 5.10236220472441E-03
.BoundingBox = 0 ' FilterEPSLib.epsObjects
.UseBleed = False
.Bleed = 31750
.CropMarks = False
.UseFloatNumbers = False
.UseSeparationProfile = True
.ConvertSpot = False
.Finish
End With
Set expflt = Nothing
sn = sn + 1
Start = Timer
Do While Timer < Start + 2
Loop
Next p
End Sub