OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 17-11-2014, 22:02
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
Default SaveAs dialogue

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:

Code:
 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.
Reply With Quote
Reply


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
Dialogue box problem? masterchiefph Corel Photo-Paint VBA 2 23-01-2008 20:42
saveas problems.. silviopr CorelDRAW/Corel DESIGNER VBA 2 29-01-2007 10:08
Invoking SaveAs Dialogue Box knowbodynow CorelDRAW/Corel DESIGNER VBA 4 02-01-2007 23:00
X3 and print dialogue box jkendo General 9 13-07-2006 10:09
A better curves dialogue... akayani CorelDRAW/Corel DESIGNER VBA 1 28-03-2006 17:54


All times are GMT -5. The time now is 11:34.


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