cdr怎么把所有页面一次性导出？

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.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”按钮来开始导出所有页面。

总结：

通过上述三种方法，我们可以方便地将所有页面一次性导出。在实际应用过程中，可以根据个人需求和习惯来选择使用哪种方法。