Script MS Word 2010 untuk membuka File HTM dan Simpan Sebagai file DOCX

Saya memiliki banyak file .htm dan saya ingin mereka menjadi file .docx. Bagaimana saya bisa skrip Word untuk membuka semuanya dan menyimpannya sebagai file .docx?

Saya baik-baik saja dengan memulai proses secara manual. Saya tidak membutuhkan sesuatu yang akan menunggu lebih banyak file, hanya sesuatu yang akan berjalan sesuai permintaan dan memproses seluruh folder file.

Sub ConvertHTMtoDOCX()

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        .Show
        strPath = .SelectedItems.Item(1) + "\"
    End With

    strFilename = Dir(strPath & "*.htm")

    While Len(strFilename) <> 0
        Set myDoc = Documents.Open(strPath & strFilename)
        strNewName = strPath & strFilename & ".docx"
        myDoc.SaveAs FileName:=strNewName, FileFormat:=wdFormatDocumentDefault
        myDoc.Close SaveChanges:=wdDoNotSaveChanges
        strFilename = Dir()
    Wend

End Sub

^{Diuji dengan 2 file .HTM di desktop saya, Windows 7 x64 dan Office 2013}