Создание папки, файла, запись в файл и импорт из 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 – адрес импортируемого файла.

Автор этого материала - я - Пахолков Юрий. Я оказываю услуги по написанию программ на языках Java, C++, C# (а также консультирую по ним) и созданию сайтов. Работаю с сайтами на CMS OpenCart, WordPress, ModX и самописными. Кроме этого, работаю напрямую с JavaScript, PHP, CSS, HTML - то есть могу доработать ваш сайт или помочь с веб-программированием. Пишите сюда.

заметки, vba, corel draw, файлы, макросы

Помогите сайту

Мои услуги

Рецензия на книгу Симмонс Дэн Лето ночи

Урок 35. Стрелочные функции или функции-стрелки в JavaScript

Создание сайтов с помощью php, или CMS vs самописный

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

Здравствуйте! Вы можете задать мне любой вопрос. Если не получается отправить сообщение через эту форму, то пишите на почу up777up@yandex.ru