Hello Chuck,

I'm very sorry for being so late in reply.

I don't keep the original macro but I think the following will do the job.

Kino

--

### Reverse Names ###

# Works on non-contiguously selected text portions.

$doc = Document.active
if $doc == undefined
	exit 'No open document, exiting...'
end

$sels = $doc.textSelections
if ! $sels.firstValue.length
	exit 'Select "Thad Jones" or "Jones, Thad" before running the macro, exiting...'
end

foreach $sel in reversed $sels
	$converted = undefined
	$converted = $sel.subtext.findAndReplace '^(\p{Upper}[^,]+),\x20(\p{Upper}[^,]+)$', '\2\x20\1', 'E-i'
	if ! $converted
		$converted = $sel.subtext.findAndReplace '^(\p{Upper}[^,]+)\x20(\p{Upper}[\S&&[^,]]+)$', '\2,\x20\1', 'E-i'
	end
	if $converted
		$sel.text.replaceInRange $sel.range, $converted.subtext
	end
end

### end of macro ###



On 2011-09-22 [+0900 JST], at 6:55 AM, Chuck Suber wrote:

> With all the updating, I've lost the macro that reverses names.
> I want to change:  *Jones, Thad *to* Thad Jones*
> and to change: *Thad Jones* to *Jones, Thad*
> *
> *
> Thank you one and all. — Chuck
> *
> *
> -- 
> Chuck (a.k.a. Charles) Suber
> Charles Suber & Associates, Inc.
> 1750 St. Charles Ave. #607
> New Orleans, LA 70130
> voice 504-524-3087
> email [log in to unmask]