Macro en excel para crear archivos word (mac)

He escrito la siguiente macro en excel para que me abra un archivo word y me sale la ventana diciendo "el libro se genero con exito" pero no se abre el documento word en cuestión. Me gustaría saber cuál es el error. Tengo habilitada la referencia MicrosoftWord.14.0.object library y estoy utilizando un mac.

Sub ExcelCreaArchivoWord()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim objWord As Word.Application, wdDoc As Word.Document, def As String
Set objWord = CreateObject(Word.Application)
objWord.Visible = True
Set wdDoc = objWord.Documents.Add
MsgBox ("el libro se generó con éxito"), vbInformation, "AVISO"
objWord.Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub