Hi Paul and Andrew
Thank you very much for your inputs. I really appreciate your continued generosity.
Paul, I substituted your suggested code change, but it still failed unfortunately, so I followed Andrew's suggestion and stepped through the macro with F8 and was very surprised that the value for .AttachedTemplate in the code below:
If .AttachedTemplate.Path = OldPath Then
.AttachedTemplate = NewPath & "\" & .AttachedTemplate.Name
was Normal.dotm, instead of the template that is actually attached to the Word 2003 document the macro found. As I am using Word 2010 to run this macro and all of the documents I hope to replace the template in are Word 2003, which does not use .dotm, I guess it is picking up the attached template to the blank Word 2010 document that I am running the UpdateServer macro from.
This I suppose is the reason it has never worked.
What am I doing wrong?