编写脚本 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

^{在我的桌面、Windows 7 x64 和 Office 2013 上使用 2 个 .HTM 文件进行了测试}