在perl脚本中将“ msoEncodingUTF8”与Win32 :: OLE一起使用

Question

我有一个Perl脚本，该脚本将Word文档另存为HTML。 以下代码有效：

use strict;
use Win32::OLE::Const 'Microsoft Word';
[...]
$go_word_doc->SaveAs2({
    FileName => $gs_html_name,
    FileFormat => wdFormatFilteredHTML
    });

为了用UTF-8编码输出文件，我以这种方式打开了命令：

$go_word_doc->SaveAs2({
    FileName => $gs_html_name,
    FileFormat => wdFormatFilteredHTML,
    Encoding => msoEncodingUTF8
    });

问题是“ msoEncodingUTF8”被看作是一个简单的单词，我在任何地方都找不到应该添加的内容才能正常工作。

有人可以帮忙吗？ 提前致谢。

Answer 1

MsoEncoding枚举为Windows代码页提供名称。 msoEncodingUTF8是给UTF-8代码页指定的名称65001 。

use constant msoEncodingUTF8 => 65001;

Answer 2

以下命令将为您创建msoEncodingUTF8 （和其他常量）：

use Win32::OLE::Const 'Microsoft Office [0-9.]+ Object Library';