编写脚本 MS Word 2010 打开 HTM 文件并另存为 DOCX 文件

编写脚本 MS Word 2010 打开 HTM 文件并另存为 DOCX 文件

我有一堆 .htm 文件,我想将它们转换为 .docx 文件。我该如何编写脚本让 Word 打开它们并将它们另存为 .docx 文件?

我可以手动启动该过程。我不需要等待更多文件的东西,只需要按需运行并处理整个文件夹的东西。

答案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 文件进行了测试

相关内容