本文主要介绍将文档保存或者另存为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 &