View Single Post
Old 11-12-2009, 09:06
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811

I think this should work:

Sub save1()
Dim SaveOptions As StructSaveAsOptions
Dim fn As String
fn = ActiveDocument.FileName
Set SaveOptions = New StructSaveAsOptions
With SaveOptions
.EmbedVBAProject = False
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = False
.ThumbnailSize = cdr10KColorThumbnail
.Version = cdrVersion9
End With
ActiveDocument.SaveAs "K:\TEMPORARY FILES\CDR\" & fn & " , SaveOptions"

End Sub
Reply With Quote