Недавний контент lev

  1. lev

    как исправить ошибку недозагрузки видео

    Имхо это был способ разместить на нашем форуме ссылку на сайт 8бит внутри "якобы вопроса". 1-й пост юзера, тема к форуму не относится...
  2. lev

    [CDR X5] Как проставить размеры у всех объектов сразу (длина/ширина)?

    Слово умное знаете. Теперь почитайте что это такое и с чем это едят.
  3. lev

    Какими утилитами можно спасти утерянный текст Блокнота

    Когда ТоталКоммандер ищет текст по файлам он предлагает вести поиск в кучке кодировок. Может и в вашем случае текст где-то ещё есть, но искался не в той кодировке?
  4. lev

    [CDR X5] Как проставить размеры у всех объектов сразу (длина/ширина)?

    В X7 я делаю так (X5 для перепроверки под рукой нет): Sub dim_each() ActiveDocument.BeginCommandGroup "Dimensioner" ActiveDocument.Unit = cdrMillimeter d = 10 For Each s In ActiveSelection.Shapes ActiveLayer.CreateLinearDimension(cdrDimensionVertical, s.SnapPoints.BBox(cdrTopMiddle)...
  5. lev

    [CDR 2019] Тримминг растра

    Если по прозрачным пикселам, то пересохранить батчем всю папку в psd формат и импортнуть в корел.
  6. lev

    Разбить ячейку таблицы поабзацно...

    Чуток загорожено, но не наблюдаю 3-х колонок в самой первой строке "- N -", имхо, там второй и третий столбец скомбинированы. Sub ParaTabSplitter() Dim r As Row, cl As Cell, t As Table On Error Resume Next For Each t In ActiveDocument.Tables For Each r In t.Rows rr = 1 For...
  7. lev

    Разбить ячейку таблицы поабзацно...

    Это при комбинированных ячейках (ваша ошибка при горизонтальном объединении). Ни мой макрос ни @Gad 'а данную ситуацию не обрабатывает. Во избежание остановки работы, можно добавить On Error Resume Next в первую строку макроса.
  8. lev

    Разбить ячейку таблицы поабзацно...

    Не понравилось как макрос работает на ячейках с разным кол-вом строк (хоть у ТС такие и отсутствуют по условию. И GoTo меня несколько удивил. В общем написал свой вариант. Sub ParaTabSplitter() For Each t In ActiveDocument.Tables For Each R In t.Rows rr = 1 For Each cl In...
  9. lev

    квадраты при печати

    Я на нём и сам сломался. Мой вариант был безграмотный вариант "потеряшки" или название какого-нибудь фентезийного животного.
  10. lev

    Площадь Классическая

    чтото на базе - Barkentina font только "к" правленная
  11. lev

    квадраты при печати

    "человечешки", "девченка" - вам бы корректора нанять перед основным тиражом
  12. lev

    [CDR 2020] Перевод изображения в точки

    https://www.evilmadscientist.com/2012/stipplegen2/ Интерфейс мне показался неудобным. Дырки пересекаются, чистить надо будет (или сверлилке всё равно?). Нет фиксированных размеров дырок, но, думаю, несложно будет привести их к набору фиксированных.
  13. lev

    [CDR 2018] Обучение автоматизации

    Кстати, в новых корелах работа с js "искаропки" Поддерживается автозапись. js-скрипты сохраняются в отдельные файлы в отдельную папку. На редактирование вызывается Notepad Нет вызова Корела как ActiveX, идет работа с host // Recorded 7/15/2020 let OrigSelection = host.ActiveSelectionRange...
  14. lev

    [CDR 2018] Обучение автоматизации

    Логично :)