OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
Old 10-12-2009, 10:08
Posts: n/a
Default Save as Old Version

Hi folks,
I've recorded a very simple of macro of saving active document as a version 9 in a specified location but the trouble is I don't how to make it save with the actual name of the active document rather than the one I used when I recorded the macro?

Here it is:
Sub save1()
Dim SaveOptions As StructSaveAsOptions
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\test.cdr", SaveOptions
End Sub
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
JPEG to PLT in version 12 dixlin Site News 2 28-10-2009 18:59
how to save multiple pages in coreldraw 12 OR how to save quality eps for animation kickingandscreaming General 2 19-08-2007 22:28
New version soon? kortshop Calendar Wizard 1 19-10-2006 13:41
version no. in fileconverter.gsm ajk CorelDRAW/Corel DESIGNER VBA 5 21-03-2006 10:33
CorelDraw 10 Version Anonymous Jigsaw Puzzle Creator 0 07-11-2003 19:10

All times are GMT -5. The time now is 06:17.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com