使用 Office 自动化从 Delphi 打开文档时，为什么 Document_Open 宏不在 Word 中运行

Question

I am trying to use Office Automation in Delphi Tokyo to open a Word document (using Word 2016). The document has a Document_Open macro that prompts the user to optionally run another macro.

When I run the following code:-

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

the document opens, but the Document_Open macro does not run. Also, if I try to run the second (main) macro manually, I get an error saying "The macros in this project are disabled ..."

However, if I open the same document from the Word file menu, the macros run as expected, so they are clearly not disabled.

The VBA project is digitally signed and Word is set to "Disable all macros except digitally signed macros".

How do I get my macros to run when opening the document from within Delphi?

Answer 1

BrakNicku led me to the answer.

I have found that unless you set WordApp.AutomationSecurity to msoAutomationSecurityByUI, macros are disabled irrespective of the settings in Word.

So the answer to my question is:-

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;

Then, provided the user's Trust Settings allow the macro to run, it will!

I hope this helps someone.