SaveAs dialogue

[knowbodynow]

I have some documents that when I open show up as untitled documents rather than using the document itself. They are easy to spot in Windows explorer because they don't show thumbnails. Anyway I have an old macro that saves documents in X5 format:

 Dim opt As New StructSaveAsOptions, SavePath As String
 
 SavePath = ActiveDocument.FilePath & ActiveDocument.FileName
 
 MsgBox SavePath, vbInformation, "Save As X5 Version"
 
 opt.EmbedICCProfile = False
 opt.EmbedVBAProject = True
 opt.Filter = cdrCDR
 opt.IncludeCMXData = False
 opt.Overwrite = True
 opt.Range = cdrAllPages
 opt.ThumbnailSize = cdr10KColorThumbnail
 opt.Version = cdrVersion15
 ActiveDocument.SaveAs SavePath, opt

End Sub

With no filename Coreldraw launches the Save Dialogue. Is there a way to have the save dialogue set to cdrVersion15 when it opens. Thanks.