使用VBScript实现HTML转DOCX时输出文件损坏问题咨询

核心问题出在两个配置项的缺失，修正后即可实现无干预批量转换：

1. 没有显式关闭转换确认弹窗：Documents.Open方法的第二个参数ConfirmConversions默认值为True，会触发格式选择弹窗，设为False即可直接跳过人工确认步骤
2. 错误开启了弹窗提示：批量运行时需将DisplayAlerts设为False，避免各类告警提示打断转换流程

修正后的完整代码如下：

'enum wdOpenFormat
const wdOpenFormatAllWord = 6                               'A Microsoft Word format that is backward compatible with earlier versions of Word.
const wdOpenFormatAuto = 0                                  'The existing format.
const wdOpenFormatDocument = 1                              'Word format.
const wdOpenFormatEncodedText = 5                           'Encoded text format.
const wdOpenFormatRTF = 3                                   'Rich text format (RTF).
const wdOpenFormatTemplate = 2                              'As a Word template.
const wdOpenFormatText = 4                                  'Unencoded text format.
const wdOpenFormatOpenDocumentText = 18                     'OpenDocument Text format.
const wdOpenFormatUnicodeText = 5                           'Unicode text format.
const wdOpenFormatWebPages = 7                              'HTML format.
const wdOpenFormatXML = 8                                   'XML format.
const wdOpenFormatAllWordTemplates = 13                     'Word template format.
const wdOpenFormatDocument97 = 1                            'Microsoft Word 97 document format.
const wdOpenFormatTemplate97 = 2                            'Word 97 template format.
const wdOpenFormatXMLDocument = 9                           'XML document format.
const wdOpenFormatXMLDocumentSerialized = 14                'Open XML file format saved as a single XML file.
const wdOpenFormatXMLDocumentMacroEnabled = 10              'XML document format with macros enabled.
const wdOpenFormatXMLDocumentMacroEnabledSerialized = 15    'Open XML file format with macros enabled saved as a single XML file.
const wdOpenFormatXMLTemplate = 11                          'XML template format.
const wdOpenFormatXMLTemplateSerialized = 16                'Open XML template format saved as a XML single file.
const wdOpenFormatXMLTemplateMacroEnabled = 12              'XML template format with macros enabled.
const wdOpenFormatXMLTemplateMacroEnabledSerialized = 17    'Open XML template format with macros enabled saved as a single XML file.

'enum WdSaveFormat
const wdFormatDocument = 0 rem <-- DOC
const wdFormatDocument97 = 0
const wdFormatTemplate = 1
const wdFormatTemplate97 = 1
const wdFormatText = 2
const wdFormatTextLineBreaks = 3
const wdFormatDOSText = 4
const wdFormatDOSTextLineBreaks = 5
const wdFormatRTF = 6
const wdFormatUnicodeText = 7
const wdFormatEncodedText = 7
const wdFormatHTML = 8
const wdFormatWebArchive = 9
const wdFormatFilteredHTML = 10
const wdFormatXML = 11
const wdFormatXMLDocument = 12  rem  <-- DOCX
const wdFormatXMLDocumentMacroEnabled = 13
const wdFormatXMLTemplate = 14
const wdFormatXMLTemplateMacroEnabled = 15
const wdFormatDocumentDefault = 16
const wdFormatPDF = 17
const wdFormatXPS = 18
const wdFormatFlatXML = 19
const wdFormatFlatXMLMacroEnabled = 20
const wdFormatFlatXMLTemplate = 21
const wdFormatFlatXMLTemplateMacroEnabled = 22

Set objArgs = WScript.Arguments
Set objWord = CreateObject("Word.application")
' 全局关闭告警弹窗，后台运行
objWord.application.visible = false
objWord.application.displayalerts = false

For I = 0 to objArgs.Count - 1
    FullName = objArgs(I)
    FileName = Left(objArgs(I), InstrRev(objArgs(I), ".") )
    ' 第二个参数设为False关闭转换确认弹窗，第10位参数指定HTML格式打开
    set objWordBook = objWord.documents.Open(FullName, False,,,,,,,wdOpenFormatWebPages)
    ' 可选：强制重排文档保证排版正确
    objWordBook.Repaginate
    objWordBook.SaveAs FileName & "docx", wdFormatDocumentDefault
    objWordbook.close 0 ' 0对应wdDoNotSaveChanges，避免退出时弹保存提示
    set objWordBook = Nothing
Next

objWord.Quit
Set objWord = Nothing

补充注意事项 #

• 运行脚本前请关闭所有正在编辑的Word文件，避免文件锁定导致转换失败
• 如果待转换的HTML文件后缀为XML而非HTML，代码依然有效，强制指定的打开格式会覆盖后缀识别逻辑
• 转换完成后可检查任务管理器，确认WinWord进程已正常退出，避免残留占用系统资源

内容的提问来源于stack exchange，提问作者user3445685