mxSSDSI2 = 7
Set TheApp = CreateObject("MaxIm.Application")
    Set AllDocs = TheApp.Documents
    For I = 1 To AllDocs.Count
Set X = AllDocs.Item(I)
   X.ConvertColor mxSSDSI2, 100.0, 100.0, 100.0, False, False
    Next