CDR另存为代码CorelDRAW VBA - 打开文件(另存为)对话框
时间: 2024-10-01 16:07:33 浏览: 12
在CorelDRAW中,通过VBA (Visual Basic for Applications) 进行操作时,如果你想要将当前设计另存为代码,通常需要编写一段宏来模拟用户打开"另存为"对话框并设置保存选项。以下是一个简单的示例,展示如何使用VBA脚本来实现这一功能:
```vba
Sub SaveAsCode()
' 创建一个新的Word文档用于保存设计
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
' 使用默认的Word模板创建新文档
Dim wdDoc As Object
Set wdDoc = wdApp.Documents.Add(Empty)
' 将CorelDRAW图形复制到Word文档
Dim cdrDoc As Object
SetcdrDoc = ActiveDocument
Dim rng As Range
Set rng = wdDoc.Content
rng.Paste
' 设置Word文档标题和格式
wdDoc.Title = "Design Code - " & Now()
wdDoc.SaveAs2 "C:\Your\Path\To\Saved\File.code", wdFormatTextMSDOS
' 关闭Word文档和CorelDRAW应用程序
wdDoc.Close SaveChanges:=True
wdApp.Quit
' 清理变量
Set rng = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
```
这段代码首先创建了一个新的Word文档,然后从CorelDRAW复制内容到Word,并将其另存为文本格式的Word文档。请注意,你需要根据实际路径替换"C:\Your\Path\To\Saved\File.code"。