OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Thread Tools Search this Thread Display Modes
Old 12-02-2020, 14:35
mtracy mtracy is offline
Join Date: Jun 2012
Location: Niceville, Florida
Posts: 31
Default Replace selected name with another

We use a custom label within all out proofs that includes an artist/designer name. In doing so whenever we get a request for a reprint we create a duplicate of the design within the same file. We just move it over next to the previous. Change the date with a macro and change the artist manually as it's not always the same person. I hate typing so with Shelby Moore's help I came up with this toggle macro to easily switch between names. Select the name then hit the macro icon on the toolbar.

Mind you, this is for X7 and not tested otherwise. And, yes, there are only two of us at this time. Add any other artist and....

Sub ChangeArtistName()
Dim s As Shape
Set s = ActiveShape
If s.Text.Story = "Myron" Then
s.Text.Story = "Linda"
Exit Sub
End If
If s.Text.Story = "Linda" Then
s.Text.Story = "Myron"
End If
End Sub
Myron Tracy
Accent Signs
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
X5 Error using Vba replace knowbodynow CorelDRAW/Corel DESIGNER VBA 5 12-05-2010 17:22
Replace object admold CorelDRAW/Corel DESIGNER VBA 3 20-09-2008 16:31
Replace color admold CorelDRAW/Corel DESIGNER VBA 4 18-08-2008 19:04
Actual Replace vindaa CorelDRAW/Corel DESIGNER VBA 11 22-05-2008 21:20
Help with Replace Macro Pumpkin_Masher Macros/Add-ons 1 21-09-2005 15:41

All times are GMT -5. The time now is 10:30.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com