Создание папки, файла, запись в файл и импорт из pdf в COREL DRAW

Последнее время все чаще приходится работать с макросами для корела, поэтому решил тут оставить на память Несколько полезных функций для VBA COREL DRAW, несколько кусков кода в открытом доступе. Может кому-то и еще кроме меня будет полезно. Если вам что-то непонятно, требуется помощь или консультация по макросам для Corel Draw, то вы всегда можете написать мне – я помогу. Не бесплатно, но недорого.



Создание папки VBA

Эта функция сначала проверяет наличие папки. Если папки не имеется, то создает её. Обратите внимание, что может не создастся, если у вас нет разрешения на такие оперции от данного пользователя с родительской папкой.

Sub CreateFolderUp(folderUp As String)
    If Len(Dir(folderUp, vbDirectory)) = 0 Then
        MkDir folderUp
    End If
End Sub

Создание файла VBA

Код ниже создает обьект файловой системы типа текстовый файл. Записывает в него строку и закрывает.

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("memory.csv", True)
a.WriteLine ("1;Тестовая строка")
a.Close

Также есть и другие методы для FileSystemObject. Например:

• MoveFile - перемещение файлов;
• CreateFolder - создание папки;
• CopyFile - копирование файлов;

Как видите, макрос корел может вполне полноценно взаимодействовать с файловой системой вашего компьютера. При этом его (макрос) даже не обязательно запускать, так как у каждого макроса существует возможность работать в фоне COREL и реагировать на некоторые события - например - открытие документа.

Импорт из pdf в Corel

Dim fltr As ImportFilter
Dim sOptn As New StructImportOptions
sOptn.MaintainLayers = True
Set fltr = ActiveDocument.ActivePage.ActiveLayer.ImportEx("D:\temp\pdf\1931473_50x30.pdf", cdrPDF, sOptn)
fltr.Finish

Здесь D:\temp\pdf\1931473_50x30.pdf – адрес импортируемого файла.