Wow, I am grateful - and think I can follow what you've done. I'll digest it today!
A bug turns up immediately following your improvement. The editor highlights:
Code:
Set wdDoc = Documents.Open(FileName:=strPath & "\" & strName, _
ReadOnly:=False, Format:=wdOpenFormatAuto)
I found the # button
Should 'format' (in the second line) be
ReadOnly:=False, Format:=wdDoc)?
Thanks again.
Ray