Tipo gostaria que alguem me ajuda-se a configurar um scripts de execusoes do visual basic do corel, postei na seção de corel o link é esse
http://forum.wmonlin...howtopic=129151
Obrigado!
- Fórum WMO
- → Viewing Profile: Tópicos: Ricardo
Community Stats
- Group Usuários
- Active Posts 9
- Profile Views 1807
- Member Title Novato no fórum
- Age 46 years old
- Birthday March 17, 1978
-
Sexo
Male
-
Localidade
SP
0
Neutral
User Tools
Friends
Ricardo hasn't added any friends yet.
Latest Visitors
Topics I've Started
Visual Basic Do Corel
19/09/2005, 13:08
Macro Vba Do Corel
18/09/2005, 13:26
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!
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!
Driver Do Modem Data Flex
20/02/2005, 17:05
Boa tarde!!
Alguem saberia me dizer onde posso baixar o driver do modem dataflex
( V.90 56K Flex Data/Fax/Voice PCI )
Se alguem souber por favor me indique a url, ja que no site da www.dataflex.co.uk se encontra fora do ar.
Grato!
Alguem saberia me dizer onde posso baixar o driver do modem dataflex
( V.90 56K Flex Data/Fax/Voice PCI )
Se alguem souber por favor me indique a url, ja que no site da www.dataflex.co.uk se encontra fora do ar.
Grato!
- Fórum WMO
- → Viewing Profile: Tópicos: Ricardo
- Privacy Policy
- Regras ·