Question

我在c：\ temp \中有很多html文件需要在同一目录中转换为.docx文件。
我有Office 2013.所以我想它不需要任何转换器，而只是在后台打开html，并将其保存为.docx。

我发现了一个将doc转换为pdf的脚本： vbscript to convert word doc to pdf

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

将const wdExportFormatPDF更改为wdFormatDocumentDefault = 16会引发错误。

知道如何在c：\ temp目录中打开并保存所有文件吗？

Answer 1

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

详细了解here。

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

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

vbscript将html文件转换为docx

1 个答案: