OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   Macros/Add-ons (http://forum.oberonplace.com/forumdisplay.php?f=21)
-   -   Replace selected name with another (http://forum.oberonplace.com/showthread.php?t=24843)

mtracy 12-02-2020 14:35

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

All times are GMT -5. The time now is 06:57.

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