admin 管理员组

文章数量: 1184232

本文主要介绍将文档保存或者另存为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 ' 版本号(可修改)

本文标签： 使用 插件实现 文件自动

版权声明：本文标题：使用VBA插件实现CorelDRAW X4文件自动化保存至桌面技巧分享 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1771196852a3541863.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。