如何用Perl脚本调用Word的VBA宏Convert？求排查代码错误

核心错误分析 #

你的代码逻辑完全偏离了正确方向：你创建的是VBA宏，不是Word的菜单控件，但你却试图通过CommandBars去查找名为"Convert"的菜单——这两者完全是不同的对象，所以必然提示"未找到菜单"。

正确调用VBA宏的代码 #

直接使用Word应用对象的Run方法即可调用宏，无需操作菜单。修正后的代码如下：

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Variant;

# 创建Word应用对象
my $word = Win32::OLE->new('Word.Application', 'Quit') or die "无法创建Word对象: $!";

# 禁用弹窗提示，设置Word可见
$word->{DisplayAlerts} = 0;
$word->{Visible} = 1;

# 打开目标文档
my $doc = $word->Documents->Open("d:\\sample.doc");

eval {
    # 直接调用名为Convert的VBA宏
    $word->Run("Convert");
    print "宏调用成功\n";
};
if ($@) {
    print "宏调用失败: $@\n";
}

# 关闭文档并退出Word
$doc->Save; # 如果宏有修改文档内容，可按需添加保存操作
$doc->Close();
$word->Quit();

注意事项 #

• 确保d:\sample.doc中确实存在名称完全匹配的Convert宏（VBA宏名称区分大小写）。
• 如果宏保存在Normal模板而非当前文档中，调用时需要指定模板名：$word->Run("Normal.Convert")。
• 运行脚本时需保证系统权限允许Word执行宏，避免被UAC或杀毒软件拦截。

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