Для чего это нужно: Как и в любой большой программе с собственным форматом хранения данных, в файлах CorelDRAW иногда накапливается различная ненужная информация - мусор. Например, цветовые стили (хотя иногда они полезны). Это сказывается на вес файла и на время работы таких операций с ним, как открыть, копировать, вставить. В CorelDRAW Х4, со вторым сервис паком, решили проблему торможения при работе с файлами в которых много цветовых стилей. Однако сами стили никуда из файла не исчезают, и порой добавляют к файлам, в несколько сотен килобайт, несколько мегабайт.

Лечится это пересохранением в формат CMX. Благодаря простому макросу reSaveCMX, это делается нажатием одной кнопки.

Sub reSaveCMX()
  If ActiveDocument Is Nothing Then Beep: Exit Sub
  Dim expopt As StructExportOptions, expflt As ExportFilter, d As Document, s$
  Set expopt = CreateStructExportOptions
  Set d = ActiveDocument
  s = d.FilePath & d.Name & ".cmx"
  Set expflt = ActiveDocument.ExportEx(s, cdrCMX6, cdrAllPages, expopt)
  expflt.finish
  d.Close
  Set d = OpenDocument(s)
  Dim SaveOptions As StructSaveAsOptions
  Set SaveOptions = CreateStructSaveAsOptions
  With SaveOptions
    .EmbedVBAProject = False
    .Filter = cdrCDR
    .IncludeCMXData = False
    .Range = cdrAllPages
    .EmbedICCProfile = False
    .Version = cdrCurrentVersion
  End With
  d.SaveAs d.FilePath & d.Name & ".cdr", SaveOptions
  VBA.FileSystem.Kill s
End Sub

Автор: Sancho