All you should need to change is:
strFile = Dir(strFolder & "\*.doc")
to:
strFile = Dir(strFolder & "\*.htm")
The saved files should retain the original format and no new files should be created.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|