Script MS Word 2010 para abrir arquivos HTM e salvar como arquivos DOCX

Question

Eu tenho um monte de arquivos .htm e eu quero que eles sejam arquivos .docx. Como posso escrever o script do Word para abri-los todos e salvá-los como arquivos .docx?

Estou pronto para iniciar manualmente o processo. Não preciso de algo que espere mais arquivos, apenas algo que será executado sob demanda e processe uma pasta inteira de arquivos.

    

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

^{Testado com 2 arquivos .HTM na minha área de trabalho, Windows 7 x64 e Office 2013}