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 &