vbscript将html文件转换为docx

我在c:\temp\中有许多html文件，需要在同一目录中转换为.docx文件。 我有2013年的办公室。所以我想它不需要任何转换器，只需要在后台用word打开html并将其保存为.docx。 我发现一个脚本正在将文档转换为pdf：

将常量wdExportFormatPDF更改为wdFormatDocumentDefault=16会引发错误。 知道如何打开并保存为c:\temp目录中的所有文件吗

ExportAsFixedFormat方法将文档保存为PDF或XPS格式

阅读更多关于它的信息

要将文件保存为docx，只需使用。 它适用于Office 2013及更高版本

---

抛出错误-请始终包含错误的详细信息。对于oFldr.Files中的每个文件，如果LCaseoFSO.GetExtensionNameoFile.Name=html，则设置oDoc=owords.Documents.OpenoFile.path oWord.ActiveDocument.SaveAs oFile.path&.docx，12 oDoc。如果现在保存为：filename.html.docx，则关闭结束。如何从中删除.htmlfilename@Lucas这是因为将文件oFile.path的完整路径连接到.docx后缀。只需在连接路径之前对其进行操作。连接之前从路径中删除最后5个字符（即.html）的简单示例：pathWithoutHtml=LeftoFile.path，LenoFile.path-5。然后在没有HTML和.docx的情况下连接路径，非常感谢！

Const wdExportAllDocument = 0
Const wdExportOptimizeForPrint = 0
Const wdExportDocumentContent = 0
Const wdExportFormatPDF = 17
Const wdExportCreateHeadingBookmarks = 1

if  Wscript.Arguments.Count > 0 Then
    ' Get the running instance of MS Word. If Word is not running, Create it
    On Error Resume Next
    Set objWord = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set objWord = CreateObject("Word.Application")
    End If
    On Error GoTo 0

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(WScript.Arguments(0))
    Set objDoc = objWord.Documents.Open(WScript.Arguments(0),,TRUE)

    'Export to PDF using preferred settings
    pdf = objWord.ActiveDocument.ExportAsFixedFormat( _
        WScript.Arguments(1), _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, _
        wdExportAllDocument,,, _
        wdExportDocumentContent, _
        False, True, _
        wdExportCreateHeadingBookmarks _
    )

    'Quit MS Word
    objWord.DisplayAlerts = False
    objWord.Quit(False)
    set objWord = nothing
    set objFSO = nothing
Else
    msgbox("You must select a file to convert")
End If

objWord.ActiveDocument.SaveAs ("C:\SomeDir\yourFileName.docx")