为什么使用Office Automation从Delphi打开文档时，Document_open宏不在单词中运行

Question

我正在尝试使用Delphi Tokyo的办公自动化打开Word文档（使用Word 2016）。该文档具有Document_open宏，该宏可提示用户可选地运行另一个宏。

当我运行以下代码时： -

Doc := IDispatch(WordApp.Documents.Open([*filename*])) as _Document;

文档打开，但是document_open宏未运行。 ，如果我尝试手动运行第二个（主）宏，我会遇到一个错误，说“该项目中的宏已禁用...”

另外 预期，因此显然没有残疾。

VBA项目是数字签名的，单词设置为“禁用除数字签名宏以外的所有宏”。

从Delphi内打开文档时，如何使宏可以运行？

Answer 1

Braknicku带领我找到了答案。

我发现，除非您设置WordApp。

因此，我问题的答案是： -

WordApp := GetActiveOleObject('Word.Application');

//store AutomationSecurity setting
LogonAutomationSecurity := WordApp.AutomationSecurity;

try
  //set AutomationSecurity
  WordApp.AutomationSecurity := msoAutomationSecurityByUI;
  Doc := IDispatch(WordApp.Documents.Open([*filename*])) as _Document;
  ...

finally
  WordApp.AutomationSecurity := LogonAutomationSecurity;
end;

然后，只要用户的信任设置允许宏运行，它将！

我希望这对某人有帮助。