在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';