admin管理员组

文章数量:1516870

本文主要介绍将文档保存或者另存为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文档一键保存至桌面 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.betaflare.com/biancheng/1771196820a3262777.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。