Selecting images in Photo Paint

Hello,

I dealt with Corel Script the first time for a couple of hours now, but I can't find a solution for a (maybe) simple problem. Sorry for my bad english - I'm from Germany

I've got an image in Photo Paint, and I have to split this image into CMYK channels. The result are four new, unsaved images, and (from the Corel Script point-of-view) I do not know the exact names of those new images (because of the numeration added by Corel). I do only need the "magenta" channel image to be saved, all other images should be closed automatic.

I found all the functions to do this task, including to count the documents, and to check the name of the active image. But I did not found a way to activate the next image, without knowing the name.

To be more brief, what I'm trying to do is:

For iAmount% = 1 to .GetDocumentCount
-> Activate Document (iAmount%)
-> Read name an check
Next

I did not expect this to be the hardest part of this. Maybe someone's having a hint?

[shelbym]

You didn't mention what version you are using, but in Photo-Paint X4, you could do something like this. It should close all the documents except the ones with the word "Magenta" in them.

Sub CloseAllButMagenta()
    Dim doc As Document
    Dim iPos As Integer
    
    For Each doc In Application.Documents
        If InStr(doc.FileName, "Magenta") = 0 Then doc.Close
    Next doc
End Sub

Best of luck,

-Shelby