File Converter Macro

Hi John,

Thanks for the reply.
Well, yes it does convert everything, but I'd like the resulting ai file
to be the same page size and orientation as the Corel file.
In the File Converter dialog box, if I don't have anything checked in
the Page Properties area, then every file will come into Illustrator as
8.5x11 portrait, regardless of Corel page size.
In order to get the ai page to match the cdr page, I have to put all the
letter portrait files in one folder, then all the letter landscape files
in another folder, then just do all my odd sized files manually as an
export, which opens in ai as the same page size automatically.

thanks,
joan


Cruiser1 wrote:
> *joan:*
> Does anyone know a workaround for that issue?
>
> Hi.
>
> Not sure what the issue is actually. It should convert everything in the
> page to an ai file regardless of page orientation.
>
> ~John
>
> ------------------------------------------------------------------------
>
> /"The best thing about learning is that it never stops, and the rabbit
> hole will go as deep as you let it."/
> ~John
> www.gdgmacros.com
>
>
> ------------------------------------------------------------------------
> http://community.coreldraw.com/forums/p/26255/123479.aspx#123479
>

Hi.

Replace this section in frmFileConvertor Code:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

nStage = 1 ' Opening a file
        Set d = Nothing
        CurFileName = frmSourceSelection.lstSelectedFiles.List(n)
        If cboFileFormat.Text <> CDR_FILE And cboFileFormat.Text <> DES_FILE And cboPageSize <> "Auto" Then
            If PageAsSeparateFile And UCase$(Right$(CurFileName, 4)) = ".CDR" Then
                Set d = OpenDocument(CurFileName)
            Else
                Set d = CreateDocument
                d.ActiveLayer.Import CurFileName, , si
            End If
        Else
            Set d = OpenDocument(CurFileName)
        End If
       
        If UseBackgroundColor Then
            SetBackgroundColor
        End If
       
        If d.Pages.Count > 1 Or d.SelectableShapes.Count > 0 Then
            nStage = 2 ' Processing the file
            'set the page size
            If UsePage And cboPageSize <> "Auto" Then
                If cboUnits.ListIndex = 0 Then
                    d.Pages(0).SetSize Val(txtPageHeight.Text), Val(txtPageWidth.Text)
                Else
                    d.Pages(0).SetSize Val(txtPageHeight.Text / INCHES_TO_MILLIMETERS), Val(txtPageWidth.Text / INCHES_TO_MILLIMETERS)
                End If
            End If

            If cboPageSize = "Auto" Then
                If d.Pages(1).Orientation = cdrLandscape Then
                    ActivePage.Orientation = cdrLandscape
                Else
                    ActivePage.Orientation = cdrPortrait
                End If
            End If
                    

           
            nStage = 3 ' Saving the file

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 

Also i added one line here:

AddPaperType "Custom", 0, 0, True
    AddPaperType "Auto", 0, 0, True
    cboPageSize.Clear '<<added this line...................
    For Each p In PaperTypes
        cboPageSize.AddItem p.Name
    Next p

 

Just change paper size to Auto and run.

~John

 

 

John, you are truly a macro genius!!
It works perfectly!!

Now I'm afraid I'm left with one other issue -- it keeps embedding an
RGB profile, even tho I don't have it checked to Apply Color Profile,
and if I hit the Advanced button to change the ai filter settings, the
macro errs out (it did that before and after I changed it with your new
info).

I'd be happy to permanently change it to always have the same settings,
but it seems like it wants to use the default export settings, but with
X5, your settings aren't remembered. Could that be the issue?

I don't even know why it would choose an RGB profile when my default is
a CMYK profile. craziness!

Thanks so much for your generosity!
joan

Cruiser1 wrote:
> Hi.
>
> Replace this section in frmFileConvertor Code:
>
> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>
> nStage = 1 ' Opening a file
> Set d = Nothing
> CurFileName = frmSourceSelection.lstSelectedFiles.List(n)
> If cboFileFormat.Text <> CDR_FILE And cboFileFormat.Text <>
> DES_FILE And cboPageSize <> "Auto" Then
> If PageAsSeparateFile And UCase$(Right$(CurFileName, 4)) =
> ".CDR" Then
> Set d = OpenDocument(CurFileName)
> Else
> Set d = CreateDocument
> d.ActiveLayer.Import CurFileName, , si
> End If
> Else
> Set d = OpenDocument(CurFileName)
> End If
>
> If UseBackgroundColor Then
> SetBackgroundColor
> End If
>
> If d.Pages.Count > 1 Or d.SelectableShapes.Count > 0 Then
> nStage = 2 ' Processing the file
> 'set the page size
> If UsePage And cboPageSize <> "Auto" Then
> If cboUnits.ListIndex = 0 Then
> d.Pages(0).SetSize Val(txtPageHeight.Text),
> Val(txtPageWidth.Text)
> Else
> d.Pages(0).SetSize Val(txtPageHeight.Text /
> INCHES_TO_MILLIMETERS), Val(txtPageWidth.Text / INCHES_TO_MILLIMETERS)
> End If
> End If
>
>
> If cboPageSize = "Auto" Then
> If d.Pages(1).Orientation = cdrLandscape Then
> ActivePage.Orientation = cdrLandscape
> Else
> ActivePage.Orientation = cdrPortrait
> End If
> End If
>
>
>
> nStage = 3 ' Saving the file
>
> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>
>
>
> Also i added one line here:
>
> /AddPaperType "Custom", 0, 0, True
> AddPaperType "Auto", 0, 0, True
> cboPageSize.Clear '<
> For Each p In PaperTypes
> cboPageSize.AddItem p.Name
> Next p/
>
>
>
> Just change paper size to Auto and run.
>
> ~John
>
>
>
>
>
> ------------------------------------------------------------------------
>
> /"The best thing about learning is that it never stops, and the rabbit
> hole will go as deep as you let it."/
> ~John
> www.gdgmacros.com
>
>
> ------------------------------------------------------------------------
> http://community.coreldraw.com/forums/p/26255/123500.aspx#123500
>

Hi.

Thanks Joan.

RGB seems to be default for AI files so that could be why it exports as RGB without having the box checked.

You can play with these settings.I added the one line here.I put a little code before and after for context.

I was unable to generate the error you mentioned by clicking advanced settings.

 

Else
        Set se = CreateStructExportOptions
    End If
    se.UseColorProfile = ApplyColorProfile '<<try commenting out or setting to false
    se.ImageType = cdrCMYKColorImage '<<added.
    
    'SourceDir = txtSource.Text
    DestDir = txtDestination.Text

 

~John