Результаты поиска

  1. E

    [CDR 2017-2021] Открытие файлов по маске

    ААААА СПАСИБКИ К солению в мои школьные годы предмета информатика не было ))))) D = Dir(NaFoS & "*.cdr") и D = Dir(NaFoS & "*.txt") сработали! Отрывают соответственно кореловский и текстовый файлы. А если учесть, что здесь мы приняли решение для обработки помещать в папку только два файла (корел...
  2. E

    [CDR 2017-2021] Открытие файлов по маске

    Четно говоря в Exel VBA не проверял. Но на форумах данный вопрос завершался выражением типа - "спасибо все работает"
  3. E

    [CDR 2017-2021] Открытие файлов по маске

    Да, но там почему-то маска типа "*-шаблон.xsl*" срабатывает. В Corel - нет (((
  4. E

    [CDR 2017-2021] Открытие файлов по маске

    М-даааа, вы прям расстроили меня (((((. Как же теперь быть.
  5. E

    [CDR 2017-2021] Открытие файлов по маске

    Ну, да, понимаю. А где-то можно посмотреть код подобного поиска. Если с OpenDocumentEx нельзя отрывать по маске, возможно можно как то по другому отрывать файл, где можно применить маску. В принципе по сути нужно отрыть файл, как это делать, думаю что не важно. Хотя я возможно не прав...
  6. E

    [CDR 2017-2021] Открытие файлов по маске

    Ни кто! (( Для корела **-шаблон.cdr", для массива - "*-замены.txt". В принципе только эти файлы и нужны для открытия.
  7. E

    [CDR 2017-2021] Открытие файлов по маске

    Всем добрый день! И снова я за помощью. Описание проблемы: открыть файл по маске. Существует постоянная папка в которой время от времени появляются файлы для работы макроса. После обработки они переносятся в другую папку (1541-шаблон.cdr, 1541-поля.txt, 1541-замены.txt). Появляются другие...
  8. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    Ух ты, и правда заработало )))))))) Спасибо, большое спасибо
  9. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    Ну мужики вас уже на философию потянуло ))))
  10. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    Изначально мне нужно данные из витмап-файла (16-ричный код) загнать в массив (10-ричный). Под словом данные мне нужны только - цветовые данные То есть если в bmp-файле ... FF FF FF FA F6 F3 EF EE ED ... То в массиве это должно выглядеть как ... 255, 255, 255, 254, 250, 246, 243, 239, 238, 237, ...
  11. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    Хорошо, вернее плохо... Скажите, после просмотра кода: Sub Test() Dim Bt() As Byte Open "H:\Temp for BMP\File2.txt" For Binary Access Read As #1 Len = 1 ofs = 1 Get #1, ofs, Bt Close #1 End Sub в файле File2.txt, 8 16-ричных символов Исходя из (подсказанного вами) кода все ли эти...
  12. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    как раз ругается на Type BITMAPFILE то есть VB и VBA разные языки ?
  13. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    Как быть ?? Что подскажите
  14. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    По совету splxgf нашел следующий код: Type BITMAPFILE bmfh As BITMAPFILEHEADER bmih As BITMAPINFOHEADER aBitmapBits() As BGR 'Содержат 3-байтовые элементы End Type Type BITMAPFILEHEADER '14 байт bfType As Integer bfSize As Long bfReserved1 As Integer...
  15. E

    [CDR X5-X8] Помогите 16-ричный файл втянуть в массив

    Всем добрый день! В продолжении моих мучений (Тема: "Определить цвет" от 9 января) прошу вас о помощи !!! Из вариантов предложенных _MBK_ Выбрал вариант 2 - экспортировать в файл и читать с него значение напрямую Но естественно у меня возникли проблемы Формат экспорта - БМП (16-ричный код) Но...
  16. E

    [CDR X5-X8] Определить цвет

    Паршиво ((((( Как раз от заднепроходных вариантов и пытался избавиться - все делал через фотошоп .. Примерно так как предлагается в ваших вариантах. Думал можно как-то реализовать через корел ((((
  17. E

    [CDR X5-X8] Определить цвет

    Добрый день. Нужна ваша помощь. Исходные данные: Любой битмап (оттенки серого) Задача: В определённой точке узнать усредненный цвет квадрата из пиксилей (нужна возможность задать кол-во пикселей для этого квадрата) вокруг этой точки. В CorelDRAW есть инструмент «Пипетка», в опциях этого...
  18. E

    [CDR X5-X8] Помогите вытащить текст

    Спасибо, все ок !!
  19. E

    [CDR X5-X8] Помогите вытащить текст

    Задача: записать в массив все тексты на текущем листе Что сделано: Sub ТекстБлок() Dim Bl As Shape Dim expText As New Collection ActivePage.Shapes.All.CreateSelection ActiveSelection.UngroupAll For Each Bl In ActivePage.ActiveLayer.Shapes If Bl.Type =...
  20. E

    [CDR X5-X8] Активное отслеживание файлов

    Спасибо за участие. Чет буду думать ((