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

[runflacruiser]

Hi,
Those are properties of the document class.

ActiveDocument.FileName 

'or 

ActiveDocument.FullFileName

In the corel object model help file choose index. Scroll to document. You will see properties and methods.
Check out the properties, and they usually have examples too.

Have fun!
-John

Hi John,
VBA language is pretty much like a Chinese language to me I took a look at the guide you referred me to but every thing went over my head.

Sub savev9()
    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 "E:\Temp Files\Graphic1.cdr", SaveOptions
End Sub

So where do I insert the line that you've suggested me above and what's the difference between active document file name and active document full file name? Thanks once again you've already proved to be very helpful to me.

[runflacruiser]

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

-John

Hi John,
It's saving with the right file name partially as it's adding extra string in the file name of save options for example if my file name is John.cdr then it's making it look like the one below:

john.cdr, SaveOptions

And secondly but more importantly it's not saving as version9 instead with my current version vX3. Any further ideas?

[runflacruiser]

Hi.
oops. My fault.
That's what I get for not testing.

Here's the fixed line for you:

ActiveDocument.SaveAs "K:\TEMPORARY FILES\CDR\" & fn, SaveOptions

-John

ps. I still didn't test but this should do it...lol

Heh thanks John that did it. You are damn so helpful arn't you.