Вы экспортируете множество рекламных макетов из разных файлов Корела в одну и ту же папку и с одними и теми же настройками.
1. Выделяете макет, заходите в редактор Visual Basic
2. Даете макросу имя и обязательно выбираете GlobalMacros, иначе скрипт будет записан только в тот файл Корела, который у вас сейчас открыт.
3. Экспортируете макет в нужную папку с нужным разрешением файла.
4. В этом окошке указываете все нужные на выходе параметры. У меня это CMYK на 300 точек с размером файла 62 на 37 мм.
5. Скинули. Остановили Basic.
6. Нажимаете play.
7. В появившемся окне выбираете свой макрос и жмете edit.
8. Вылезло окошко с вашим макросом. На рисунке он выделен.
9. Макрос выглядит так:
Sub Macro1() ' ' Recorded 03.06.2011 ' ' Description: ' ' Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange Dim expflt As ExportFilter Set expflt = ActiveDocument.ExportBitmap("Z:\Reklama\Design\-e\Graphic1.tif", cdrTIFF, cdrSelection, cdrCMYKColorImage, 732, 437, 300, 300, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone) expflt.Finish End Sub
10. Теперь правим. (Правка подчеркнута красным, это просто для сравнения):
Sub Macro1() ' ' Recorded 03.06.2011 ' ' Description: ' ' Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange Dim expflt As ExportFilter Dim myNameFile As String myNameFile = Mid(ActiveDocument.Name, 1, Len(ActiveDocument.Name) - 4) myName = "Z:\Reklama\Design\-e\" & myNameFile & ".tif" Set expflt = ActiveDocument.ExportBitmap(myName, cdrTIFF, cdrSelection, cdrCMYKColorImage, 732, 437, 300, 300, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone) expflt.Finish End Sub
Как видно, мы добавили три строчки. Вторая строчка убирает последние четыре символа в названии файла. Допустим, было Graphic1.cdr, а станет просто Graphic1. Третья строчка присваивает файлу то имя, с которым файл был создан. (Это чтобы разные файлы не скидывались с одним и тем же именем). И, соответственно, заменяем "Z:\Reklama\Design\-e\Graphic1.tif" на myName.
|