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

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

В 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

Во время месячника Дзюбы мне приходило с таким абзацем:

Как же люди до Мацушиты жили, пока он не догадался, что, чтобы урвать свой кусок пирога, надо создать товар дешевле и качественней чем у конкурента? Не, может некоторые делали, но того же качества и дешевле, или в ту же цену, но качественней и прогорали с этим подходом. Самые умные приблизились...

ИМХО исходник двухцветный, репринт решено в 1 цвет делать?

AIclipboard - надстройка сохраняющая Clipboard в временный файл и импортирующая его. И, наоборот, экспортирующая в файл и засовывающая его в Clipboard (зависит от направления). Т.е. без импорта-экспорта не обходится. В свежих корелах можно вставлять скопированное из CorelDRAW в Illustrator, но...

Ну, это из древних закромов код (проапдейтил пост выше, не знаю, заметил ли ты изменения), через WinAPI работающий А так можно и свои инструменты делать. Например: Making a Zig Zag Tool for CorelDRAW and Corel DESIGNER - Docs & Tutorials - Developer Area - CorelDRAW Community, надеюсь там уже...

Угу. В зависимости от положения курсора. Там потом в Undo такая каша... Вот под руку попался чей-то моргающий пример без стирания: Public Type lpPoint x As Long y As Long End Type Public BC As Double, AC As Double, AB As Double Declare Function GetAsyncKeyState Lib "user32" (ByVal...

Некоторые рисуют-стирают, рисуют-стирают

А автор делал шрифт? Вектор тут лежит - Glamour Luxury Font Alphabet Set