Sub TestSaveAs() Dim sa As StructSaveAsOptions Dim d As Document Set sa = CreateStructSaveAsOptions With sa .EmbedICCProfile = True .EmbedVBAProject = True .Filter = cdrCDR .IncludeCMXData = True .Overwrite = True .ThumbnailSize = cdr10KColorThumbnail .Version = cdrCurrentVersion End With For Each d In Documents d.SaveAs "c:\" & CStr(d.Index) & ".cdr", sa Next dEnd Sub