CorelDRAW是一款功能强大的矢量图形编辑软件,拥有广泛的应用领域,如平面设计、包装设计、广告制作、插图绘制等等。在创作过程中,有时候需要将所有页面一次性导出。那么,该如何操作呢?
方法一:使用宏
CorelDRAW可以使用宏来批量导出所有页面,操作非常简单。首先,将需要导出的所有页面打开,然后按下“Alt+F11”组合键,调出宏编辑器。在宏编辑器中,我们可以编写一段VBA脚本来实现导出。下面是一段具体的代码:
```
Sub ExportPages()
Dim i As Integer
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Activate
ActiveDocument.ExportBitmap _
FileName:= "D:\ExportFiles\" & i & ".jpg", _
FilterID:= cdrJPEG, _
Width:= 800, _
Height:= 600, _
Resolution:= 72, _
AntiAliasing:= True, _
IncludeDocumentOrigin:= True
Next i
End Sub
```
代码解释:
- Sub ExportPages()是子程序的定义,ExportPages是程序的名称。
- Pages.Count属性会返回当前文档中页面的总数。
- Pages(i).Activate方法会选择第i个页面。
- ExportBitmap方法会将选择的页面导出为图片,并保存在D:\ExportFiles\目录下。其中,& i &".jpg"会将文件以“1.jpg”、“2.jpg”、“3.jpg”的形式进行命名,i为页面的编号。FilterID:= cdrJPEG表示以JPEG的格式进行导出,Width和Height表示导出图片的宽度和高度,Resolution表示图像的分辨率,AntiAliasing表示抗锯齿功能,IncludeDocumentOrigin表示是否将图像原点包括在内。
- Next i表示进入下一次循环。
编写完成后,保存宏,并按下F5运行即可。
方法二:使用脚本
如果你不习惯使用VBA,也可以使用其他脚本语言来导出所有页面,如JavaScript。具体做法如下:
首先,按下“Alt+F11”调出宏编辑器,在左侧的“Tools”菜单下,选择“Scripts”命令,然后选择“New Script”。
然后,输入以下代码:
```
for (var i = 1; i <= cdr.ActiveDocument.Pages.Count; i++)
{
cdr.ActivePage = cdr.ActiveDocument.Pages(i);
cdr.ActivePage.ExportBitmap("D:/ExportFiles/" + i + ".jpg", 72, 60, true, true, true);
}
```
代码解释:
- for循环遍历所有页面。
- cdr.ActivePage = cdr.ActiveDocument.Pages(i);会将第i页设置为当前活动页。
- cdr.ActivePage.ExportBitmap方法会将当前页导出为JPEG格式的图片,并保存在D:/ExportFiles/目录下。
- 最后一个true表示将图纸无锯齿导出,二个true是为了使图框有效。
完成代码后,保存脚本并运行即可。
方法三:使用插件
在CorelDRAW X6及以上版本中,还可以使用插件来批量导出所有页面。例如,有一款名为“Quick Export”的插件可以在CorelDRAW中实现一键批量导出。具体操作如下:
- 下载并安装“Quick Export”插件。插件下载地址:https://www.coreldraw.com/en/pages/plugins-and-extensions/quick-export/
- 在CorelDRAW的“工具”菜单中,选择“宏”的“编辑/运行宏”,在“编辑器”窗口中输入以下代码:
```
Private Sub ExportPages()
Dim FileName As String, fileExt As String
Dim i As Integer
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Activate
FileName = Replace(ActiveDocument.FullName, ".cdr", "") & "-" & _
ActiveDocument.Pages(i).Name, fileExt = ".jpg"
ExportImage FileName & fileExt, cdrJPEG, 300, 144, cdrRGBColorspace, cdrDownsampleOn, _
False, cdrHalftoningMethodNone, cdrImageRemappingNone, 0, , , , , , , cdrExportOptimized, True, True, True, True, True, , ,
Next
End Sub
```
- 按下“F5”键运行宏。Macro浏览器将显示出所有可用于操作的宏。在“宏”列表中找到“Export Pages”,并点击“Run”按钮来开始导出所有页面。
总结:
通过上述三种方法,我们可以方便地将所有页面一次性导出。在实际应用过程中,可以根据个人需求和习惯来选择使用哪种方法。