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

Можно не вызывать диалог и воткнуть всё в одну строку с двойным вызовом имени файла, вот только зачем? Sub ExportSel() ActiveDocument.ExportEx(Left(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 3) & "ai", cdrAI, cdrSelection).Finish End Sub + будет сбоить на несохранённом...

Тащите батч на панельку Тотала, он станет кнопкой которая будет работать на выделенный файл. Правым кликом по кнопке можно подредактировать опции чтобы батчу передавались, например, полный-неполный путь, путь к соседнему окну и т.п. (см. F1)

Не заработает :(

Модератор не нуждается в разрешениях пользователей на закрытие тем. Для "Спасибо" есть специальная кнопочка под каждым постом.

А вдруг он чей-то? Хозяин будет переживать...

Кто такой Юрьев? Если двойная фамилия, то через дефис. Если второй автор, то добавьте запятую и инициал имени. Если город, то зачем он там.

Это ежа покормили.

X7 32 bit - срабатывают 1 и 3-й варианты Sub aaa() b = "Привет" If b = "Привет" Then MsgBox "1 " & b If StrComp(b, "Привет", vbTextCompare) Then MsgBox "2 " & b If StrComp(b, "@825B", vbTextCompare) Then MsgBox "3 " & b End Sub

Баг VBE начиная с X7

Имхо @VV это знает, но предполагает, что кто-то мог им вдохновиться и оцифровать.

Поймал себя на том, что читал обсуждение, запихал pdf в корел, снёс штамп заказчика, положил дизайн на наш штамп, отослал заказчику на утверждение, продолжил читать тему. --- тут картинка кота с попкорном, которую лень искать ---

Даже в названии странички косяк.

И в чём тогда новизна?

И при этом он ни на каком этапе своего существования не становится "уже покрашенным объектом"?

И чем это отличается от #13 поста? Добавлением слова "глупый"?

В AI скриптинге не разбираюсь. Что если вынести из цикла: все_выделенные_объекты.filled = true; (до цикла) все_выделенные_объекты.strokeWidth = 0; (после цикла)

Примерно так: Sub textConvertKavichky() Dim s As Shape, r As New ShapeRange, st As String ActiveDocument.BeginCommandGroup "quotes" Set r = ActiveSelectionRange Set re = CreateObject("VBScript.RegExp") re.Global = True For Each s In r.Shapes.FindShapes(, cdrTextShape) st =...

Глиф (Glyph Fonts) - Шрифт Tasty с кириллицей

Возьмите цвет пипеткой с уже покрашенного объекта Кликайте объекты для покраски сколько угодно раз. Для более старых версий (~ до X5) кликайте удерживая Shift.