CorelDRAW VBA - 将文档保存或另存为X4版本

本文主要介绍将文档保存或者另存为X4版本的VBA代码实现,用到了 CorelScriptTools(Corel脚本工具)的 GetFileBox 方法来打开文件对话框,使用 Document(文档对象)的 Dirty 属性来判断文档在上一次保存后是否修改过。

参考代码

Sub saveAsX4()
    ' 定义结构化保存选项
    Dim opt As New StructSaveAsOptions
    ' 定义保存路径
    Dim path As String
    ' 判断文档是否修改过
    If ActiveDocument.Dirty Then
        ' 询问是否保存
        If MsgBox("文档已修改,是否保存?", vbOKCancel) = vbCancel Then Exit Sub
        If ActiveDocument.FilePath = "" Then
            ' 调用文件打开对话框
            path = CorelScriptTools.GetFileBox("CDR - CoreIDRAW X4|*.cdr", "另存为", 1, ActiveDocument.Name)
            If path <> "" Then
                opt.Overwrite = True ' 覆盖源文件
                opt.Range = cdrAllPages ' 保存全部页面
                opt.Version = cdrVersion14 ' 版本号(可修改)
                ActiveDocument.SaveAs path, opt
           
相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值