Недавний контент Алена

  1. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам Это понятно. Мне нужно программно открыть палитру цветов, и потом присвоить выбранный цвет ячейке. Пишу на VB, окно выбора цвета открываю, выбираю цвет, который возвращается в виде цифр. Его я присвоить FillColor не могу, т.к там или Swatch или String тип...
  2. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам День добрый! В надежде на то, что кто-нибудь знает.. :) Нужно с помощью скрипта сделать заливку ячейки таблицы цветом. А как открыть палитру цветов? Спасибо.
  3. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам Подскажите, а как при создании таблицы сразу указать параметры, сколько строк, столбцов и т.д? Пока делаю так: Set mytable = myParagraph.Tables.Add mytable.TopBorderStrokeWeight = 1...
  4. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам Добавление рамок к объявлениям в виде таблиц. Если параграф содержит только текст-все отлично. Если же имеется картинка (фото), то его хотелось бы разместить как раз по границам ячейки, без отступов, а текст - с отступами.
  5. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам А если нужно сделать для картинки нулевые отступы слева-справа, а для простого текста >0, и текст и картинка относятся к одному абзацу, как быть?
  6. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам А как же мне сравнить текст с этим кодом в vb?
  7. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам Картинка и текст принадлежат одному абзацу. Как узнать, что в выделенном тексте есть картинка и для нее сделать нулевые отступы в ячейке? Пробую через Set mySelection = Form1.csInDesign.Selection MsgBox (TypeName(mySelection.Item(1))) показывает Text...
  8. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам ОК. Спасибо.
  9. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам При копировании вручную тоже самое. А вот картинка по ширине больше ячейки. Это что же, нужно уменьшать ее размер? Она вставляется как и текст, с отступом. Нужно, чтобы без отступов.
  10. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам Что-то странное творится: выделяю текст абзаца, копирую в буфер затем вставляю в таблицу. Если в этом тексте изображение и текст, с установленным обтеканием, то получается картинка не влазит в ячейку. Может кто сталкивался...
  11. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам Во фрейме оч много абзацев. Я ищу определенный текст, если нахожу-то вставляю вместо него Rectangle в соответствии с шириной фрейма и высотой 24. Опять здесь все с GeometricBounds связано? Тогда как узнать координаты конкретного кусочка текста, если таковые...
  12. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам В текстовый фрейм нужно добавить графический. Как указать размеры графического фрейма?
  13. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам В текстовый фрейм вставлена таблица. Как сделать ее ячейку шириной во весь фрейм? Делаю так: Set mycell = mytable.Cells(1) myBounds = csDoc.TextFrames.Item(1).VisibleBounds Y1 = myBounds(0) X1 = myBounds(1) Y2 = myBounds(2) X2 = myBounds(3) s...
  14. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам Согласна, только вот по-другому как выделить текст не сообразила. Пробовала через Characters - выделяются по одной букве, спасибо подсказали как надо :)
  15. А

    Если есть вопросы по скриптам

    Ответ: Если есть вопросы по скриптам С этим немного разобралась, используя Ваш пример, вместо Count надо (Count-1): myParagraph.Characters.Item(1).Select 1919250519 myParagraph.Characters.Item(myParagraph.Characters.Count - 1).Select 1633969202 'выделяю весь текст иначе получает лишний...