На нашем сайте мы используем cookie для сбора информации технического характера и обрабатываем IP-адрес вашего местоположения. Продолжая использовать этот сайт, вы даете согласие на использование файлов cookies. Здесь вы можете узнать, как мы пользуемся файлами cookies.
Я согласен
логотип upread.ru

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


© upread.ru 2013-2023
При перепечатке активная ссылка на сайт обязательна.
Задать вопрос
письмо
Здравствуйте! Вы можете задать мне любой вопрос. Если не получается отправить сообщение через эту форму, то пишите на почу up777up@yandex.ru
Отправляя сообщение я подтверждаю, что ознакомлен и согласен с политикой конфиденциальности данного сайта.