Sub ConvertirHtml_Docx()

Dim objWordApplication As New Word.Application
  Dim objWordDocument As Word.Document
  Dim strFile As String
  Dim strFolder As String

'Change the folder name here
  strFolder = "c:\temp\myfolder\"
  strFile = Dir(strFolder & "*.html", vbNormal)
  
  While strFile <> ""
    With objWordApplication
      Set objWordDocument = .Documents.Open(FileName:=strFolder & strFile, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:="")
          
      With objWordDocument
        .SaveAs2 FileName:=strFolder & Replace(strFile, "html", "docx"), FileFormat:=wdFormatXMLDocument, CompatibilityMode:=15
        .Close
      End With
    End With
    strFile = Dir()
  Wend

  Set objWordDocument = Nothing
  Set objWordApplication = Nothing

End Sub