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

Катался пару лет назад на Селигер. Озёра, Волга, по берегам деревни. В одной деревне один оператор работает, у населения симки этого оператора, в другой деревне другой оператор фурычит, население с его симками... Я недельку без звонков с работы отдыхал.

Проще при создании добавлять в коллекцию, а при окончании её удалять Дублирование отвинтил, можете вернуть, ничего особо не поменяется. Sub Circleonclick() Dim x#, y#, b As Boolean, Shift As Long Dim sr As New ShapeRange ActiveDocument.ReferencePoint = cdrCenter Do b =...

На картинке в цитируемом сообщении ширина видна в предпоследнем столбце. А так могу и тоталкомандером с плагинами и утилитами всякими, упомянутыми выше, посмотреть.

Умножаем ширину в пикселях на 0,1 (делим на 10) и получим размер в см при разрешении 254 dpi, для мысленных прикидок достаточно

В заголовке темы Вы указали желаемую версию [CDR 2021]

Извините, я не хочу "смотреть кино", не хочу ползать на другие форумы, я из этой темы устраняюсь. Может кто другой поможет.

А потом Вам перекраска из ричблэка в блэк понадобится... :) А потом...

$1 & Chr(9) $1 & vbTab

А я Вам предлагал экспорт-реимпорт вручную делать?

В X7 - OLE If lev_Не_протестировал_код Then lev_Не_постит_код _на _форум

А чего тогда в тему InDesign пишете, а не в Word? Там и свои средства замены есть, и regexp не проблема подключить. Про некоторые отличия от InDesign'овского grep'a Вы уже знаете.

Barcode это OLE объект, можно выловить их. Как их отличать от других OLE, лень думать ActivePage.FindShapes(, cdrOLEObjectShape).CreateSelection Почему бы не использовать какую-нибудь из кучи уже написанных до Вас баркодокривилок, а не городить свою? Экспорт-реимпорт баркода как-то попроще будет.

Примерно так: Set ind = CreateObject("InDesign.Application") Set Story = ind.ActiveDocument ind.FindGrepPreferences = Nothing ind.ChangeGrepPreferences = Nothing ind.FindGrepPreferences.FindWhat = "Hello" ind.ChangeGrepPreferences.ChangeTo = "Привет" Story.ChangeGrep

Private Sub CommandButtonImportgcode_Click() gc = "c:\cdr2mill\cdr2mill.txt" Open gc For Input As #1 Do While Not EOF(1) Line Input #1, s ss = ss & s Loop Close #1 TextCode = ss End Sub

Какую? Несовпадение типов? протестировано и работает в X7

Не понял про дополнительный цикл Sub Testfind() Dim sp As Shape Dim sr As ShapeRange Dim ss As ShapeRange Set sr = ActivePage.FindShapes(Type:=cdrGroupShape) If sr.Count <> 0 Then For Each sp In sr Set ss = sp.Shapes.All ss.Sort "@shape1.width*@shape1.height <...

sr(sr.Count).Outline.SetProperties Color:=CreateCMYKColor(100, 0, 0, 0)

В свежих версиях корела они стали скриптами.

одна тема = один вопрос

Теоретически это делается так: Открываем диалог с предложением подстановки шрифта Sub MatchingPanose() PanoseMatching = cdrPanosePrompt OpenDocument "C:\My Documents\Graphic1.cdr" End Sub