CorelDRAW X4 :: How To Modify Macro To Process All CDR Files In Folder
May 25, 2012
I am using Coreldraw but in the past I have been able to create the following Macro to do the following
(1) open a file called C:ArtworkC67PSML.cdr
(2) change the text in one field from "Recorded in Ireland" to "Recorded in China"
(3) remove all guideline fields
(4) export the cdr to pdf format and save as new file C:Artwork2C67PSML.pdf
But I would very much like to be able to run the macro on all CDR files in the c:/Artwork folder, how I could amend my code (shown below) to do this ?
Sub Rings()
Dim doc1 As Document Set doc1 = OpenDocument("C:ArtworkC67PSML.cdr") Call TextTranslate ActivePage.Layers("Guidelines").Editable = True ActivePage.Layers("Guidelines").Shapes.All.CreateSelection ActiveSelection.Delete ActivePage.Layers("Guidelines").Activate
[Code] ......
I have created a macro to change the Country of Origin text in a cd label file and I also have created a macro to remove some guide rings in the same label file but I am unable to combine the 2 macros into one macro I can run on the cd label file. The code for each macro is as below.
'TextReplacePublic Function FindReplace(ByVal str As String, ByVal toFind As String, ByVal toReplace As String) As String Dim i As Integer For i = 1 To Len(str) If Mid(str, i, Len(toFind)) = toFind Then ' does the string match? FindReplace = FindReplace & toReplace ' add the new replacement to the final result i = i + (Len(toFind) - 1) ' move to the character after the toFind Else FindReplace = FindReplace & Mid(str, i, 1) ' add a character End If Next iEnd Function
Public Sub TextTranslate() Dim s As Shape ActiveDocument.BeginCommandGroup "Text Translate" For Each s In ActiveDocument.ActivePage.Shapes If s.Type = cdrTextShape Then s.Text.Story = FindReplace(s.Text.Story, "Recorded in Ireland", "Recorded in China") s.Text.Story = FindReplace(s.Text.Story, "Printed in Ireland", "Printed in China") End If Next s ActiveDocument.EndCommandGroupEnd Sub
how I could (1) join the 2 macros above or (2) create a batch macro for each macro above I could run to update all coreldraw cd label files in a folder.
When I try to use the Process Multiple Files feature, it is giving me a message saying that the process was stopped or cancelled. Press continue or stop. When I click continue, it say that the folder is empty. It is not empty. This is what I use all the time to put my watermark on my photos.
I want to modify the standard Lightroom 3 export process - I want exported images to be placed in folders named from the collections that are being exported.
Can I do this without writing a complete plugin - which would be hard work and error prone? Ideally I'd like to add an option to the 'File Naming -> custom ' section of the export dialog.
I'm writing a macro that will take a .cdr file, import it, and then do something with it. When I first run the macro, I would like an "open file" browser to pop-up so that the user may navigate and specify which .cdr file to import.
Upon startup of CorelDraw X4, I get an error message and the debugger opens (macro) and highlights a line of code in the Recent Files macro. I suspect it may be a Windows 7 update since about 15 updates were installed today.
P.S. - resetting workspace by pressing F8 at startup is not an option.
Can I modify an existing viewport in a macro or in the command line?
Using a macro, I want to modify (specifically delete) the viewport from a layout tab after chspace from model space.
I have LT so no LISP. qselect works but cannot be put into a macro.
If I "select all" on a layout tab in paperspace ACAD says 1 of the objects selected is the viewport so I know autocad recognizes the viewport as a different kind of object.
How the PMS color palettes "simulate" on screen how the color will print on different substrates (glossy vs matte vs uncoated paper). That's great for comps, but if you convert it to CMYK to print it, and the values are representing a "simulated" color it won't look correct (by that I mean come close to matching the spot color). For example, the uncoated palette simulates the color by making them appear a bit washed out on screen - pretty good visual simulation. But it might do so by adding black and cyan to orange for example, etc. - effectively dulling the original color.
So if I convert that to CMYK within the new Pantone + color palette, and then send it to the printer - it won't appear as it did on screen, it will dull the end color even more because it's converted the color to the dull simulated version - what a disaster! It's only doing half the job - showing us what it should look like on screen. In order to be truly efficient for design professionals the CMYK conversion might remove black and cyan completely to effectively brighten the color in the final output on uncoated paper. I would prefer it just stick to the standard conversion, which Pantone did have as a standard palette option (PMS to process), and then I can adjust if I think it's necessary.
Any corporate branding system will likely start with a PMS spot color palette for the identity. Then it will build into many different adaptations - full color brochures, large format banners and trade show graphics, website, advertising. So any corporate branding system will need to have PMS, CMYK and RGB versions of their main corporate color palette. There was a standard for these translations that was automatically consistent in the Adobe software and that is now all over the place, so it relies on individuals manually adapting the color mixes for final use - what a great way to screw things up.
I want to crop several images to size, then add a white boarder, a drop shadow and a stroke. Is there a way to automate the process, so they are all exactly the same?
All of a sudden I get this message when I try to change the materials of any part within my workspace folder. I looked at the project and everything looks fine. I can save the file but cannot change or add anything now.
I created a folder on my flash drive. I'm trying to use Batch Process to copy the files to the drive. I'm not adding a script. The name of the new folder comes up in the dialogue box, but when I click on the start button I get a notice that the file already exits and do I want to overwrite it. I click on yes. All the photos are then copied, but when I go to the new folder in my flash drive it's empty.
I'm following the instructions in Diane Koers book on PSP X4.
Also, I can't seem to use Batch Process to save my JPEGs and TIFFs. Is it possible to do this.
I got over 160 color corrected RAW files from my photographer when I thought I was getting TIf or PSD files. I need to put them into an in design doc to send out for printing. Is there a way to convert all of these in one fell swoop without messing up the work that has already been done?
I didn't allow in my timing to save each one individually since i didn't know I was going to need to do this. I am really unfamiliar with batch processing, so how to best go about this, or if I even can. I am working in Photoshop CS6. version 13.06 x 64.
Photoshop CS6 Extened won't play or process Dolby Digital (AC-3) Audio Files from my AVCHD video files.The video plays fine just no sound at all. When processed still no sound. Are there any (AC-3) audio codecs I can download and install. How would I install them. Do I need to convert audio files to another format & if so how & what format.
I opened my catalog today and went to one of my folders (2011/9 September). I noticed that there were pictures in the folder that did not belong and had the wrong name attached to them. I was surprized so I right clicked selected "Show in Finder" the folder 2011/9 September opened the photo was not in the folder.
Knowing the folder it should be in I went there and sure it enough it is there with it's original name.Went back to lightroom optimized the catalog... still there. Deleted folder in Lightroom, reimported, but the files came back.
The folder on the finder has 96 pictures, the folder in Lightroom shows 146.I can deal with removing the 40 odd files in this situation but I am afraid it will occur in one of the folders where there are a couple of thousand images.All my other folders seem fine for now, what would cause this issue?
am using PhotoShop for web development but mostly for digital photo manipulation.
I have found a couple of PNG files that I thought would transparent but were not. How can I transform an existing png file that has been used to modify the boarder of pictures for rough edges..... The png file is not transparent and has a lot of internal noise/distortion that keeps the "magic wand tool from being able to clear out the middle are in one fail swoop?
i was running a trial version of X6 before i purchased - got to a few days left and had a few issues where i was able to run the programme, but had to open it, then press ESC before i could do anything..Now - a few days later, and the trial is now expired - i am unable to do anything - i cant sign up, purchase the software, uninstal, modify or repair it!!
This is a macro I've been working on for a few days, what it does is it applies the selected transformation to each one of the selected objects individually. It rotates, scales and flips in both axes. I think this is a simple but useful workaround to the fact that Corel doesn't have a native command that does this.
I have a VB script that I created in excel that does a number of things. At some point I want it to open a series of variable Draw documents based on names and paths from columns in an excel document. This part works fine. However, I also want to perform a macro, created in CorelDraw, on said files once opened. This macro also works fine. The issue I am having is getting Excel to tell Draw to run the macro. I wrote the line with the same syntax I would use for telling excel to run a Word macro. IDK.
Set CorelDrawApp = CreateObject("CorelDraw.Application.15") CorelDrawApp.Visible = True Dim i As Long
I work in a trophy shop running laser engravers. I'm looking for a macro that would select everything on a page, flip it vertically, and do so throughout a multi-page document - I just had to do that manually for an order of 236 acrylics (all in one multi-page file!) and it - well - was a bit tedious I can make a macro to select all and flip - but I'm lost when it comes to getting it done throughout a file, I can only get it to do that a page at a time.
This script is supposed to open, modify, save, and close all files within a chosen folder.
There are a couple problems with the script The files are "legacy" .eps and .ai, so a save dialog pops up. I want to save the file and move on, suppressing dialogs if possibleOnly the first file is opened If I comment out the line inside the for loop that runs the convertToUncoated() function, all of the files will open. If there is a way to upload the test files I'll gladly do that.
so I've recorded a macro to find all drop shadows and seperate them from whatever they're attached to. Now my problems is how to deselect the objects leaving just the drop shadows selected
Sub Macro173() ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(3), ' ActiveLayer.Shapes(1)).Cut ActiveLayer.Paste Dim Paste1 As ShapeRange Set Paste1 = ActiveSelectionRange ActiveDocument.Undo ActiveDocument.Undo ActivePage.Shapes.All.CreateSelection ActiveSelection.Separate End Sub
I want to take the current document, convert to PDF using a profile I have saved, then create a new email message in Microsoft Outlook, attach the PDF that saw just created, and use the file name as the subject of the email (minus the file extension).
Bonus points for also selecting a signature that I have in Outlook. I know the PDF creation can happen, and I know I can save the file name to be passed on, but can I access Outlook from CorelDraw?
Current System: i3 3.07ghz, 3gb ram, Windows 7 32 bit with all updates and X6
