You want to save an html as as word document?
I did this conversion with the following:
Code:
Sub saveHtmlAsDocx()
Dim d As Document
Set d = Documents.Open("C:\scratch\test.html")
Dim newfile As String
newfile = Replace(d, ".html", ".docx")
d.SaveAs2 newfile, FileFormat:=wdFormatDocumentDefault
End Sub