I have a problem with Macro opening word document using Excel VBA code. This code works well on windows, however It doesn’t work on Mac. Could someone help me?
This line of code doesn’t work on Mac:
Set objDoc = objWord.Documents(“Menu_Template.docx”)
Function CreateMenu()
‘ OPEN WORD TEMPLATE
Dim objWord ‘ As Word.Application
<code>On Error Resume Next:
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
Dim objDoc As Word.Document
On Error GoTo NoFile:
' opens collection of word documents
objWord.Documents.Open Filename:=(Application.ActiveWorkbook.Path + "Menu_Template.docx"), ReadOnly:=True
objWord.Visible = True
objWord.Activate
On Error GoTo 0:
Set objDoc = objWord.Documents("Menu_Template.docx")
Call GenerateText(objDoc, objWord)
Exit Function
</code>
<code>On Error Resume Next:
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
Dim objDoc As Word.Document
On Error GoTo NoFile:
' opens collection of word documents
objWord.Documents.Open Filename:=(Application.ActiveWorkbook.Path + "Menu_Template.docx"), ReadOnly:=True
objWord.Visible = True
objWord.Activate
On Error GoTo 0:
Set objDoc = objWord.Documents("Menu_Template.docx")
Call GenerateText(objDoc, objWord)
Exit Function
</code>
On Error Resume Next:
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
Dim objDoc As Word.Document
On Error GoTo NoFile:
' opens collection of word documents
objWord.Documents.Open Filename:=(Application.ActiveWorkbook.Path + "Menu_Template.docx"), ReadOnly:=True
objWord.Visible = True
objWord.Activate
On Error GoTo 0:
Set objDoc = objWord.Documents("Menu_Template.docx")
Call GenerateText(objDoc, objWord)
Exit Function
NoFile:
MsgBox (“Menu template not found”)
Exit Function
End Function
New contributor
ondrej.janosik is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.