I had a similar issue some time ago. When opening a word document from within an Excel macro, everything worked fine for me. But on another PC, the macro simply stopped with a message indication that macros where disabled.
The issue could be solved by changing the Application.AutomationSecurity property for the word app to msoAutomationSecurityLow.
It is important to set that property back to its original value after code execution.
You can try the following code example.
Option Explicit
Sub OpenWordsFilePathWithLowSecuritySettings()
Dim sFilePath As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim lAutomationSetting As Long
'The path to your word file
sFilePath = "C:\Users\micha\Desktop\example file.docx"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
'Save word app automation security so we can restore it afterwards
lAutomationSetting = wrdApp.AutomationSecurity
'Error handling to make sure the automation security is reset even if an error occurs
On Error GoTo ErrorHandler
'Change the automation setting to low security
wrdApp.AutomationSecurity = msoAutomationSecurityLow
'Open word document
Set wrdDoc = wrdApp.Documents.Open(sFilePath)
'Your code - do something with the word file
'
'
'
ErrorExit:
On Error Resume Next
'Close the word document
wrdDoc.Close
'Reset the word automation security
wrdApp.AutomationSecurity = lAutomationSetting
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
Exit Sub
ErrorHandler:
MsgBox "An error occured: (Code: " & Err.Number & ", Description: " & Err.Description & ")", vbCritical, "Error"
Resume ErrorExit
End Sub
