Уважаемые знатоки. Кто знает, тому это просто.
Задача такая. Из Excel копируется колонка с данными и вставляется в текстовый блок Corel для обработки. Как отделить текстовые блоки и обработать отдельно, которые отделяються переводом строки? Они так вставляються. Если существует более продвинутый способ передачи данных из Excel и их пакетной обработкой макросом в Кореле, буду еще более благодарен.

Цитата:
Работал на фотовыводе, этикеточные спуски в CorelDraw. Объёмы большие, поток. Если по твоей вине брак, высчитывают из зарплаты 40% от всего допущенного брака. К примеру, 700 тысячный тираж пантонной этикетки с тиснением и когревом, а резчик не может порезать твой спуск для высечки, потому что ты ошибся с наложением высечных элементов. А всё уже отпечатано, оттиснено и отконгревлено. Или у тебя погадился векторный текст под линзой на оооочень срочном и важном заказе. Или Scale With Image на RIP'е погадились и обводка получилась рваной, а ты не заметил, потому что работы больше, чем до хера. Или проскочил объект, кторый ты ручками перекрашивал, но он, засранец этакий, не перекрасился и остался в RegistrationColor, а эта обводочка тооонкая, и при печати видно, что не чёрный цвет у тебя, а полный... CMYK. Да много ещё чего может быть такого, что с помощью VBA делается легко и ненапряжно, а ручками - геморройно и криво.
Так что любители потрендеть про сборище ботанов-программистов могут засунуть себе язычок куда подальше.
Можешь - помоги, не можешь - не мешай.

1:1
кстати всю дальнейшую ругань в этой ветке буду удалять

Цитата:


Конечно есть база данных.
Где занесены даты выхода - макет 25104000 должен выйти 10 февраля, а макет 25104001 - 12 февраля.
мы запускаем отчет на 10 февраля и получаем список (текстовый файл) только тех макетов которые выходят 10 февраля.

Моя прога работает при переходе через Новый год - поэтому проблем нет.

Например сейчас 15.02.08
перерегистрация: из 10124000 (явно сделана 2007 г, обозначим Старый год) сделать 14025000 (новый год)

'Определение года
god_star = CStr(Year(Date))
god_new = CStr(Year(Date))

If Month(Date) < Val(Mid(hstar, n, 2)) And Val(Mid(hstar, n, 2)) <= Val(Mid(hnew, n, 2)) Then
god_star = CStr(Year(Date) - 1)
god_new = CStr(Year(Date) - 1)
End If

If Month(Date) < Val(Mid(hstar, n, 2)) And Val(Mid(hstar, n, 2)) > Val(Mid(hnew, n, 2)) Then
god_star = CStr(Year(Date) - 1)
god_new = CStr(Year(Date))
End If

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