Скрипт MS Word 2010, чтобы открыть HTM файлы и сохранить как DOCX файлы

Question

У меня есть куча файлов .htm, и я хочу, чтобы они были файлами .docx. Как мне написать скрипт Word, чтобы открыть их все и сохранить как файлы .docx?

Я в порядке с ручным инициированием процесса. Мне не нужно что-то, что будет ждать больше файлов, просто что-то, что будет работать по требованию и обрабатывать целую папку файлов.

Answer 1

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

^{Проверено с 2.HTM-файлы на моем рабочем столе, Windows 7 x64 и Office 2013}