OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 30-03-2004, 15:22
vallentin
Guest
 
Posts: n/a
Default File converter suggestion

The file converter that comes with CorelDRAW 12 does not allow you to accsess any options, and would be grat to have an option to choose a lower version of CorelDRAW to convert the files in, instead of converting them to CDR 12.

This should not be hard to add,

any help Alex?
Reply With Quote
  #2  
Old 01-04-2004, 16:05
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default File Converter

I needed the exact same thing this week. Had a number of files in ver. 12 needed to save them as a 9. Loading the file converter and found it would not save as a lower version.

This would be a nice addition.

Shelby
Reply With Quote
  #3  
Old 27-04-2004, 11:23
pp21
Guest
 
Posts: n/a
Default

This macro open all *.cdr in SourceFolred and save them to TargetFolder in CDR 9 format.
Specify source and target folder (both must exist) and run it. You can change output CDR file version.

Code:
Sub SaveOlderVer()
  Dim opt As New StructSaveAsOptions
  
' Specify source and target folder here (both must exist)
  SourceFolder = "C:\cdr_files"
  TargetFolder = "C:\cdr_files\version9"
  
' Specify output CDR version here
  opt.Version = cdrVersion9
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(SourceFolder)
  Set fc = f.Files
  For Each f1 In fc
    If LCase(Right(f1.Name, 4)) = ".cdr" Then
      OpenDocument f1.Path
      If Right(TargetFolder, 1) <> "\" Then TargetFolder = TargetFolder & "\"
      ActiveDocument.SaveAs TargetFolder & f1.Name, opt
      ActiveDocument.Close
    End If
  Next
End Sub

Last edited by Alex; 28-09-2005 at 20:49.
Reply With Quote
  #4  
Old 28-09-2005, 13:41
twinx
Guest
 
Posts: n/a
Default

Hi,
from germany. I used the script below from pp21, but it does not work. I do not understand the code
In Microsoft Visual Basic I got an error by this line:
Code:
If Right(TargetFolder, 1) &lt;> "\" Then TargetFolder = TargetFolder &amp; "\"
Can somebody help me?
Quote:
Originally Posted by pp21
This macro open all *.cdr in SourceFolred and save them to TargetFolder in CDR 9 format.
Specify source and target folder (both must exist) and run it. You can change output CDR file version.

Code:
Sub SaveOlderVer()
  Dim opt As New StructSaveAsOptions
  
' Specify source and target folder here (both must exist)
  SourceFolder = "C:\cdr_files"
  TargetFolder = "C:\cdr_files\version9"
  
' Specify output CDR version here
  opt.Version = cdrVersion9
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(SourceFolder)
  Set fc = f.Files
  For Each f1 In fc
    If LCase(Right(f1.Name, 4)) = ".cdr" Then
      OpenDocument f1.Path
      If Right(TargetFolder, 1) &lt;> "\" Then TargetFolder = TargetFolder &amp; "\"
      ActiveDocument.SaveAs TargetFolder &amp; f1.Name, opt
      ActiveDocument.Close
    End If
  Next
End Sub
Thanks
Reply With Quote
  #5  
Old 28-09-2005, 20:50
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

I guess it is that HTML tag conversion problem. "&lt;" should actually read "<" and "&amp;" is just an "&".

I have corrected the original code. I haven't tried to run it actually but it should work now.
Reply With Quote
  #6  
Old 09-05-2004, 11:08
olympiatr
Guest
 
Posts: n/a
Default

when i looking for a code which can open all files i saw your codes, thanx friend this is very helpful part of my little vba makro.
Reply With Quote
  #7  
Old 12-05-2004, 18:05
vallentin
Guest
 
Posts: n/a
Default

Thanks a lot pp21 for sharing!
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
File Converter script error CorelDummy CorelDRAW/Corel DESIGNER VBA 2 25-01-2005 08:38
SOME CHANGES OVER FILE CONVERTER olympiatr CorelDRAW/Corel DESIGNER VBA 2 14-04-2004 02:05
File Converter - turning off layers venturian CorelDRAW/Corel DESIGNER VBA 6 27-01-2004 08:08
Open - Resize - Savefile in Photo Paint greenee Corel Photo-Paint VBA 2 28-06-2003 03:54
Problem with File Converter CMX->EPS starless Macros/Add-ons 4 09-05-2003 08:33


All times are GMT -5. The time now is 23:33.


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