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

  1. lev

    [CDR X5-X8] Макрос замены строки текста или удаления строки.

    Тут уже желательно регулярки подключать Sub cl_main() ActiveDocument.BeginCommandGroup "Mainer" Set re = CreateObject("VBScript.RegExp") re.Pattern = "class="".*?""" Dim s As Shape Dim l As TextRange Dim doreplace As Boolean doreplace = False For Each s In...
  2. lev

    [CDR X5-X8] Макрос замены строки текста или удаления строки.

    Sub class_main() Dim s As Shape Dim l As TextRange Dim doreplace As Boolean doreplace = False For Each s In ActiveLayer.Shapes.FindShapes(Type:=cdrTextShape) For Each l In s.Text.Story.Lines If doreplace Then l.Text = Replace(l.Text, "class=""""", "class=""main""") If...
  3. lev

    Цифровое телевидение или что купить чтоб снова стало хорошо (приставка DVB-T2)?

    Купил приставку DVB-T2 к древнему телевизору на даче, подключил тв на антенный выход приставки и раз в пару месяцев пытался на разных тв выловить на ДМВ результат работы приставки, только года через два прочёл в инструкции, что никакого ДМВ на выходе приставки, как на видео или игрушках нету...
  4. lev

    Как должно выглядеть lean-тестирование сайта?

    Так?: <html> <head> <meta charset="win-1251"> <title>lean-тестирование сайта</title> </head> <body> <form id="data"> </form> <fieldset form="data"> <p>Вам удобно использовать сайт?</p> <p><input type="radio" name="answer" value="1" checked> Да</p> <p><input type="radio"...
  5. lev

    Макет стаканчиков для кофе

    Новый плагин от boxshot - Conical Label Illustrator Plugin - easily wrap your artwork for conical surfaces
  6. lev

    Конструкция для трехмерного арт-объекта

    Может светодиодную взять?
  7. lev

    E-ink reader в подарок

    из описания на форуме 4pda: если человек уже является обладателем библиотеки в fb2 или epub, то придётся повозиться с конвертацией или перезакачкой любимых книг в нужном формате Не имею представления зачем он нужен на данной читалке, но, если вдруг нужен, то стоит учесть
  8. lev

    Маленькие радости - 9

    По газеткам как раз в Казани были кровавейшие "ОЮД" (Общество юных Дзержинцев, под крышей ментуры творили что хотели) + кварталА
  9. lev

    Похожий на Contraption Bold [a_Campus]

    Motor, но "%" не совпадает
  10. lev

    [ID CC-CC2023] Вектор из Corel в Indesign

    Исходный макрос никуда не пропадал - Copy To Adobe Illustrator
  11. lev

    Обложка Очерка

    Почему на корешке слово "ГРАММАТИЧЕСКИЙ" короче двух оставшихся, а на обложке длиннее? Тайная дизайнерская задумка?
  12. lev

    Макет для высечки коробки. Толщина картона.

    Тады присоединюсь к советам остальных - вырежьте из тиражного картона и сложите.
  13. lev

    Комната смеха - 12

    Оцените логотип
  14. lev

    Макет для высечки коробки. Толщина картона.

    а) Коробка из толстого картона делается примерно так (двойные биги, там где картон загибается на 180°) б) Примерное сложение коробки - двойной биг по верху, возможный запас на вставку крыла между слоями, уменьшение внутренней стороны примерно на толщину картона, отступы и т.п. в) У вас...
  15. lev

    [CDR X5-X8] Как сделать фонтанную заливку "радуга по кругу"

    Закомментируй On Error Resume Next :)
  16. lev

    [CDR X5-X8] Как сделать фонтанную заливку "радуга по кругу"

    Гонял под X7 в X6 отсутствует .SpreadMethod = cdrFountainFillSpreadMethodPad :(
  17. lev

    [CDR X5-X8] Как сделать фонтанную заливку "радуга по кругу"

    Выделить объекты, запустить макрос Sub rff() On Error Resume Next Dim s As Shape ActiveDocument.BeginCommandGroup "Rainbow fountain fill" For Each s In ActiveSelection.Shapes With s.Fill.ApplyFountainFill(CreateCMYKColor(100, 0, 0, 0), CreateCMYKColor(100, 0, 0, 0)) .Type =...
  18. lev

    [CDR X5-X8] Кракозябры в макросах

    В программе из которой копируйте включите русскую раскладку, и уже потом копируйте.
  19. lev

    [CDR X5-X8] Кракозябры в макросах

    Это баг VBE7 Вставляйте надписи копипастой из другого места. или пишите при английской раскладке клавиатуры, а потом конвертируйте написанное пунтой. Я использую второй способ.