Работает ли скриптинг VB6 для CS2?

[vbatushev]

Ответ: Работает ли скриптинг VB6 для CS2?

А направление Не подскажете.

Я невнятно выразился??? Хорошо. Повторяю.
Microsoft Visual Basic 6.0 SP6 – это инструмент для создания приложений.
"Только он – гранд"

P.S. Корел мастдай.

 

[ragman]

Ответ: Работает ли скриптинг VB6 для CS2?

P.S. Корел мастдай.

Не по теме:
Ай-ай-ай... Как неаккуратно!
Может пофлеймим?
На вкус и цвет, как говорится....
Я, например, рекламные макеты рисую в кореле, со всякими "спецэффектами" пока все выводится в типографии и претензия только одна - очень тяжелые полосы где много ЕПСов с такими эффектами вследствии уже обсуждавшегося тут растрирования у Корела.
Ну не могу я заставить себя пересесть на Илл, хотя умом понимаю что это лучше.

 

[vbatushev]

Ответ: Работает ли скриптинг VB6 для CS2?

Я 99% макетов в ID рисую, бегая "за угол" в Illustrator за брашами или за разбором PDF на мелкие части.
Корелом только чужое шшастье отворяю. Цвет никак не могу адекватно настроить при экспорте. Нэнавижжжжжжу.

 

[dizzy]

Ответ: Работает ли скриптинг VB6 для CS2?

А я бы и не прочь пересесть, да не один в конторе. Попробуй сдвинь остальных... Человеческая психика инертна, и попробуй докажи "зачем надо что-то менять, если и так все нормально". Тут рассказывали до меня два месяца с народом бились для того, чтобы макеты приучить кодировать... А вы говорите на илл пересесть.

За ответы спасибо. Действительно инди стал слушаться, просто не нарадуюсь. С экзэшниками, на сколько я понял, надо отдельно софт устанавливать? Что ж поищем...

 

[svlasov]

Ответ: Работает ли скриптинг VB6 для CS2?

Закрою тему нафиг, если не прекратите флейм "corel vs illustrator".

 

[dizzy]

Ответ: Работает ли скриптинг VB6 для CS2?

Братцы помогите!

Set myInDesign = CreateObject("InDesign.Application.CS")
Set myDocument = myInDesign.Open(d + "\" + f1.Name, False)
Set myLayoutWindow = myDocument.Windows.Add
Set myObjects = myDocument.AllGraphics
For myCount = 1 To myObjects.Count
myName = myObjects.Item(myCount).ItemLink.Name
myPage = ' надо получить номер полосы на которой макет стоит, да как выйти на него, не понимаю...

Туплю, однако...

 

[Kuzmin]

Ответ: Работает ли скриптинг VB6 для CS2?

myPage = ' надо получить номер полосы на которой макет стоит

Private Function GetPageName() As String
 Dim parentObject As Variant
 Dim typeNameParentObject As String
 Dim oversetObject As Variant
 Dim idOversetObject As Long
 Dim j As Long
 Dim k As Long
 
 On Error GoTo ERROR_Overset
 
 GetPageName = "Overset" ' предполагаем что линк помещен в текстовый фрейм
 ' и выходит за границы этого фрейма
 
 Set parentObject = link.Parent
 typeNameParentObject = TypeName(parentObject)
 
 Do While typeNameParentObject <> "Page" ' пока не достигнем родительской страницы
 ' продвигаемся по родительской ветке вверх
 If typeNameParentObject = "Character" Then ' если текущий объект помещен в текстовый фрейм
 Set oversetObject = parentObject
 Set parentObject = parentObject.ParentTextFrame
 ElseIf typeNameParentObject = "Spread" Then ' если текущий объект лежит на pasteboard
 GetPageName = Str(parentObject.Pages.Item(1)) + " PB"
 Exit Function
 ElseIf typeNameParentObject = "MasterSpread" Then ' если текущий объект лежит на pasteboard master-а
 GetPageName = parentObject.Name + " PB"
 Exit Function
 ElseIf typeNameParentObject = "Story" Then ' если текущий объект текст
 Set parentObject = parentObject.Characters.Item(1).ParentTextFrame.Parent
 Else
 Set parentObject = parentObject.Parent
 End If
 typeNameParentObject = TypeName(parentObject)
 Loop
 
 GetPageName = parentObject.Name
 If TypeName(parentObject.Parent) = "MasterSpread" Then ' если текущий объект лежит на master-е
 GetPageName = GetPageName + "-" + parentObject.Parent.BaseName
 End If
 Exit Function
 
ERROR_Overset:
 idOversetObject = oversetObject.Inlines.Item(1).Id
 For j = 1 To myInD.ActiveDocument.Pages.Count
 For k = 1 To myInD.ActiveDocument.Pages.Item(j).AllPageItems.Count
 If myInD.ActiveDocument.Pages.Item(j).AllPageItems.Item(k).Id = idOversetObject Then
 GetPageName = Str(j) + " Overset"
 Exit For
 End If
 Next
 If GetPageName <> "Overset" Then
 Exit For
 End If
 Next
End Function

 

[dizzy]

Ответ: Работает ли скриптинг VB6 для CS2?

Спасибо за код. Надеюсь писался не для меня лично, а то как-то даже не удобно получилось...

 

[vbatushev]

Ответ: Работает ли скриптинг VB6 для CS2?

Извинись наличными