Your code as posted won't work for me. f you really want to collaborate then you should include the bit about:
Dim arrFind, arrReplace
strLS = Application.International(wdListSeparator)
etc.,

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/