通过 OLE 从 Ruby 或 VBS 调用时，Word Document.SaveAs 会忽略编码

我有一个脚本（VBS 或 Ruby），可以将 Word 文档保存为“过滤后的 HTML”，但编码参数被忽略。 HTML 文件始终以 Windows-1252 进行编码。我在 Windows 7 SP1 上使用 Word 2007 SP3。

红宝石示例：

require 'win32ole'
word = WIN32OLE.new('Word.Application')
word.visible = false
word_document = word.documents.open('C:\whatever.doc')
word_document.saveas({'FileName' => 'C:\whatever.html', 'FileFormat' => 10, 'Encoding' => 65001})
word_document.close()
word.quit

VBS示例：

Option Explicit
Dim MyWord
Dim MyDoc
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = False
Set MyDoc = MyWord.Documents.Open("C:\whatever.doc")
MyDoc.SaveAs "C:\whatever2.html", 10, , , , , , , , , , 65001
MyDoc.Close
MyWord.Quit
Set MyDoc = Nothing
Set MyWord = Nothing

文档：

文档.另存为：http://msdn.microsoft.com/en-us/library/bb221597.aspx

msoEncoding 值：http://msdn.microsoft.com/en-us/library/office/aa432511(v=office.12).aspx

有什么建议，如何让Word以UTF-8保存HTML文件？

嗨，Bo Frederiksen 和 kardeiz，

我今天在我的“Word 2003 (11.8411.8202) SP3”版本中也遇到了“Word Document.SaveAs 忽略编码”的问题。

幸运的是，我设法使 msoEncodingUTF8（即 65001）在 VBA 代码中工作。但是，我必须先更改Word文档的设置。步骤是：

1) 从Word 的“工具”菜单中选择“选项”。

2）然后单击“常规”。

3) 按“网络选项”按钮。

4) 在弹出的“Web 选项”对话框中，单击“编码”。

5）您可以找到一个组合框，现在您可以更改编码，例如从“GB2312”更改为“Unicode（UTF-8）”。

6) 保存更改并尝试重新运行 VBA 代码。

希望我的回答能够帮助到您。下面是我的代码。

Public Sub convert2html()
    With ActiveDocument.WebOptions
        .Encoding = msoEncodingUTF8
    End With

    ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & "file_name.html", FileFormat:=wdFormatFilteredHTML, Encoding:=msoEncodingUTF8

End Sub