Thanks for the suggestion, but I did as you suggested:
strFile = Dir(strFolder & "\*.doc")
to:
strFile = Dir(strFolder & "\*.htm")

But the results Is that it not only removes the hyperlinks, but also creates a folder by the same name as the .htm with _Files added and inside each folder has three filee name:
following files in that folder:
colorschememapping.xml
filelist.xml
themedata.xml

Here are the images showing this creation:

Attached Images

	Macro Results.png (171.6 KB, 20 views)
	Folders and Files Created.png (128.9 KB, 20 views)