19 replies to this topic

[Ricardo]

Blz, gostaria de saber como faço para converter varios arquivos utilizando o Visual Basic do corel, ou seja criar um script de execusões.

Tenho que converter 80 mil arquivos de Adobe ilustrador para o corel 8.


Tentei realizar o a sequencia das execusões, na primeira da tudo certo só que o nome do arquivo quando vou salvar os demais repete o mesmo nome sobregravando o arquivo ao inves de criar ou outro com o nome correpondente ao arquivo.

Essa é a sequencia que estou utilizando.
--------------------------------------------------------

Sub testes2()
'
' Recorded 18/9/2005
'
' Description:
' testes2
'
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = New StructSaveAsOptions
With SaveOptions
.EmbedVBAProject = False
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = False
.ThumbnailSize = cdr10KColorThumbnail
.Version = cdrVersion8
End With
ActiveDocument.SaveAs "C:\Ricardo\GrupoVto\80millogomarcas\vector1\Alv-Amo\Always_Classic__26858_1.cdr", SaveOptions
End Sub

-------------------------------------------------------------------------------
As execusões estão corretas, gostaria de saber o que devo fazer para mudar automaticamente o nome do arquivo ( onde esta em vermelho ) sendo assim possivel converter todos arquivos.

Obrigado!

[bimonti]

Deste modo que você colocou ele salva todos os arquivos com o mesmo nome, você tem que usar randômicos, ou no caso de você precisar salvá-los com o mesmo nome pode usar sequencial: arq_01, arq_02 (como se você não soubesse disso ).

Talvez fosse legal você postar no fórum de VB Script, eles devem conhecer uma maneira mais adequada do que eu te falar uma "gambiarra".

[_kreativ_]

heheh manda os arquivo pra mim que eu faço e mando cd de vorta. hehehe fiquei interessado nessa parte: 80millogomarcas do script.



bom, nunca fiz este processo no VB, vou tentar algo aqui e te falo.
Me avisa se conseguir algo.

Dúvida os arquivos estão em .AI ou .EPS?

sds,

[Ricardo]

Blz, tipo os arquivos estão em ESP ok, ja tentei diversas formas e nada sempre sobregrava o mesmo arquivos. Mais uma hora vou conseguir ou irá aparecer um "santo" ae no forum pra me ajudar rsrsrs , pq pra sabe disso o cara tem que manjar muito acha cabeça mais continuo tentando.

[_kreativ_]

Se tivese em AI ficaria tudo no automático. como está em EPS o corel avacalha tudo.

bom fera, algo que pode ajudar até eu estudar o comando de programação.

Selecione vários arquivos EPS de uma vez e mande abrir no ilustrator CS.
Depois vai em File-->Script-->SaveDocsAsPDF
escolha o folder e manda ver.


Depois, abra o corel e vá em -->ferramentas-->visual basic-->executar
Na opção " Macro em" escolha "todos os projetos padrão"
depois escolha "CONVERTER.START"
Pronto, selecione a pasta onde os arquivos PDF estão, e selecione a pasta de destino. Mande converter e o corel irã converter sozinho.

Esta opção funciona para varias extenções, porém da erro em alguns arquivos .EPS - Por isso, a conversão para PDF. Se estivesse tudo em .AI, bastaria usar este comando e converter automaticamente.

abraços,

[Ricardo]

edmar_junior, Blz

Realmente dessa forma deu certo valeu mesmo, porém ainda continua meio demorado pois tenho que converter os arquivos EPS para PDF e depois para CDR.

Até que a conversão de PDF para CDR e bem simples é rápida vc só indica onde estão os arquivos e onde eles serão salvos dai o resto é automatico.

Mais o de EPS para PDF é meio complicado pois tenho que abrir todos os arquivos no Adobe Ilustrator e converter para PDF o que demora tbm.

Mais estamos chegando lá, essa não deixa de ser uma solução mais simples que abrir uma a uma e salvar como no corel.


Valeu e obrigado por pesquisar uma solução para minha duvida.

Vou ver se consigo nem que seja um outro programinha que converta de EPS para PDF dai depois fica mais facil para converter pelo corel.

Edição feita por: Ricardo, 16/05/2008, 20:43.

[_kreativ_]

q burro eu sou, faço isso direto aqui em anuncios de revista EPS.
heheh joga os EPS no distiler do abrobat. Ele faz automático.

joga uns 50 arquivos ou mais. depende da configuração da máquina.

caso nao tenha o acrobat, seleciona uns 50 ou mais arquivos EPS e joga no ilustrator que abrem todos os arquivos... depois aplica o comando de salvar PDF que faz em todos automático.

abraços,

[Ricardo]

Cara, valeu mesmo fiz como vc me passou instalei o Acrobat Distiller 5.0 abri o programa , selecinei 500 logo em EPS de uma vez só e arrastei sobre o programa a conversão começou de imediato para PDF , depois foi no corel e converti os arquivos em PDF para CDR. Passo a Passo como vc explicou!!

Tudo automaticamente, Valeu mesmo!!

Precisa me da um tok no que estiver em meu alcance com certeza irei ajudar

Edição feita por: Ricardo, 16/05/2008, 20:42.

[_kreativ_]

huahuha nada que umas 80mil marcas nao resolvam huahuahuha... brincadeira.
precisando, é só postar ai ou criar outro tópico se for outro assunto.

sds,

[Mateus Henrico]

Deste modo que você colocou ele salva todos os arquivos com o mesmo nome, você tem que usar randômicos, ou no caso de você precisar salvá-los com o mesmo nome pode usar sequencial: arq_01, arq_02 (como se você não soubesse disso ).

Talvez fosse legal você postar no fórum de VB Script, eles devem conhecer uma maneira mais adequada do que eu te falar uma "gambiarra".

Vc sabe me dizer se eu consigo gerar uma macro, que abra arquivos de um diretorio, um a um, e salve com outro nome, por exemplo?
Qual é minha ideia: eu sempre tenho que abrir vários arquivos para converte-los em PDF (suposição)
Minha ideia é abrir um unico, e atraves desse arquivo aberto, ele pega o direitorio (filepath), e abre todos os arquivos desse diretorio, salva como (ou exporta) e fecha...

É possível?

[Eu mesmo]

Cara, não sei se vai ajudar, mas nesse link tem um tutorial ensinando a gerar um VBA.
http://oberonplace.c...createmacro.htm

E nesse tem outros VBA's
http://www.oberonpla...acros/index.htm

[bimonti]

Eu tenho o Corel X3 aqui. No menu Ferramentas -> Visual Basic -> Executar... tem uma Macro que chama FileConverter. Está em inglês mas é bem simples.

 converter.gif   18.45KB   1 downloads

[Mateus Ellan]

Tem como fazer sim, mas vc vai ter que pesquisar VB + Banco de Dados.
Tem como ele procurar os arquivos em tal pasta, abrir, e Converter/SalvarComo da forma que vc precisa.

Mas é como falei, vc vai ter que criar link de banco de dados. Deve existir uma apostila falando disso em www.apostilando.com

[HaroNism]

Canada Wholesale Pharmecy cialis Antibiotic Cephalexin Drug
Baclofene Comment Ca Marche Buy Accutane From Legal Chemist
Phifer Viagra <a href=http://cialtobuy.com>online pharmacy</a> Canadian Generic Drug Manufacturers
Vendita Viagra Generico In Europa cheap cialis Genuine Viagra Cheap Acheter Cialis Belgique Sans Ordonnance Find Trusted Website To Buy Viagra Propecia O Vademecum cialis price Buy Kamagra Oral Jelly Canada
Medsforless Biz cialis buy online Overnight Delivery Viagra
Priligy Duracion
Keflex Allergic Reaction Symptoms <a href=http://cialtobuy.com>cialis</a> Viagra For Sale Canada Pharmacy

[HaroNism]

Cialis Viagra Combo Pack cialis price Acquisto Levitra Generico In Italia Cialis GСÐСâСÐвÐâСÐСâРÐÐÂnstig Kaufen 40mg Viagra Fruit Soft Tabs 100mg
Order Cialis With Paypal Viagra Dal Canada viagra Buy Trichozole Without Prescription
Il Cialis Funziona Sempre Find Stendra Free Shipping Discount viagra online pharmacy Is Penicillin The Same As Amoxicillin