vba

  1. hulk1776

    [ID СС2017] Опять перевод с jsx на vba - itemByRange.

    Рискую нарваться на проклятия в связи с трениями по поводу Васика. На яве было так: mSelection = mStory.insertionPoints.itemByRange(index0+2, indexEnd); И все работало. Тоже на VBA Set myInd = CreateObject("InDesign.Application") Set aD = myInd.ActiveDocument Set mLastFrame =...
  2. hulk1776

    Вопрос не по Indi. Как сохранить картинку из Ворда (VBA)?

    Через запись макросом не пишется ничего. Хотя по правой кнопке "сохранить картинку" действия производились. Может кто знает эту темку? (Объект Shape или InlineShape) На code-форумах пока не нашел (за полдня).
  3. N

    [CDR X7] CreateArtisticText и размер шрифта.

    Доброго времени, коллеги! Подсобите новичку, пожалуйста: по умолчанию CreateArtisticText создаёт текст 24п. Стоит задача создания текста с размером "значение переменной". В атрибутах толком не смог разобраться, надеюсь на вашу помощь. Спасибо!
  4. izrukvruki

    [CDR X4 и ранее] Как выделить все объекты

    Подскажите пожалуйста: на листе несколько элементов, как макросом выделить все элементы и узнать в пикселях размер всего выделенного?
  5. T

    [CDR X4 и ранее] VBA Закрыть приложение.

    Добрый день, уважаемые знатоки корелдроу. Хочу что бы после выполнения скрипта что бы закрывалось приложение, как это сделать Application.close нет в явном виде Просто close не работает
  6. Е

    [CDR X6] CreateSubPathFromArray не замыкается контур линии

    Dim crv As Curve Set crv = New Curve Dim i As Integer ce(0).ElementType = cdrElementStart ce(0).PositionX = 0# ce(0).PositionY = 0# For i = 1 To UBound(s) With ce(i) .ElementType = cdrElementLine .PositionY = s(i, 0) .PositionX =...
  7. W

    Макрос. Массовая подлинковка картинок в Кореле.

    Подлинковывает пучок битмапов, описание работы ниже. Sub PlaceFromFile() Dim impopt As StructImportOptions Set impopt = CreateStructImportOptions With impopt .Mode = cdrImportFull .LinkBitmapExternally = True .MaintainLayers = True ' With...