Corel FORUM

ClubBase

Czesc

Makro do dzielenia wielostronnicowych plikow cdr na pojedyncze cdr...

Makro wyglada nastepujaco:

Kod:

Sub dzielenie()
' Description:
' Dzielenie wielostronnicowych plikow cdr na pojedyncze pliki cdr z zawartoscia tylko jednej strony

Dim l As Integer
For l = 1 To 230 ' Zakres do zmiany

ActivePage.Shapes.All.CreateSelection
ActiveSelection.Cut
Dim createopt As StructCreateOptions
Set createopt = CreateStructCreateOptions
With createopt
.Name = "Beznazwy-1"
.Units = cdrMillimeter
.PageWidth = 85# ' szerokosc generowanego pliku
.PageHeight = 170# ' wysokosc generowanego pliku
.Resolution = 300# ' rozdzielczosc, ogolnie zostaje bez zmian
.ColorContext = CreateColorContext2("sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%", BlendingColorModel:=clrColorModelCMYK)
End With
Dim doc1 As Document
Set doc1 = CreateDocumentEx(createopt)
ActiveLayer.Paste
Dim Paste1 As ShapeRange
Set Paste1 = doc1.SelectionRange
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = True
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = False
.Version = cdrVersion14
.KeepAppearance = True
End With
doc1.SaveAs "C:\TEMP\0" & l & ".cdr", SaveOptions
doc1.Close
ActiveDocument.Pages(1).Delete
Next l
End Sub

U mnie dziala jak nalezy, kopiujac makro na innego kompa (ta sama wersja corela, w tym wypadku x7) wywala sie przy:

.KeepAppearance = True

Jakis pomysl co zrobic by dzialalo na innych stanowiskach? podejrzewam ze mam cos nagrzebane w ustawieniach domyslnych corela i to jest powodem. Ewentualnie moze ktos dysponuje makro do dzielenia na pojedyncze cdr?

Z gory mowie ze makro domyslnie wystepujace w corelu (file converter) nie dziala, przy niektorych plikach (dosc duze zlozenia z duza iloscia elementow) makro po prostu sie wysypuje...

ClubBase

Jakies wiesci?