VBA Coding

[ankit4mi]

Hi,

I have the below windows macro which runs perfectly in windows. I want to run the same macro in MAC. Can someone help me in editing the macro so that it can in MAC Pc's also.

Sub subtoWord()
Range("D2:D33").Select
Selection.Copy
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
With objWord
.Documents.Add
.Visible = True
.Selection.Paste

MsgBox "Your tables have successfully been exported to a new Word document."

End With
End Sub

 

[severynm]

What exactly is the problem with this on mac? There seems to be a nearly identical issue solved here: Mac VBA: CreateObject for launching another Office application results in an error

 

[ankit4mi]

What exactly is the problem with this on mac? There seems to be a nearly identical issue solved here: Mac VBA: CreateObject for launching another Office application results in an error

This macro is not running in MAC. as it gives Automation error or Out of memory Error.

 

[severynm]

This macro is not running in MAC. as it gives Automation error or Out of memory Error.

Did you try the link? I do not have access to anything running macos, so I really cannot help except to point you to other potential solutions. In the future, it is also helpful to post exactly what your error is and which line it occurs on - otherwise the people helping you just have to guess.

These answers seem to point to error handling in case an instance of Word is already open, so maybe check that out:

Open word using vba Mac - OS X

I am trying to open automatically an excel document on a Mac OS X, but it doesn't work. My code is: Sub Button81_Click() Dim objWord Dim objDoc Set objWord = CreateObject("Word.Applica...

stackoverflow.com

Create Word file from Excel 2011

The usual approach to create a Word document from Excel VBA: Set WD = CreateObject("Word.Document") results in an error when run with Excel 2011. Any idea how a Word document can be created in...

stackoverflow.com

 

[ankit4mi]

Hi,

On the below code it given me Automation error on Set wdApp = CreateObject("Word.application") line. I am trying to run this code on MAC platform. Can you please help in running this code successfully.

Sub subtoWord()
Range("D2:D33").Select
Selection.Copy

Dim wdApp As Object
Dim wdDoc As Object
Set wdApp = CreateObject("Word.application")
wdApp.Visible = True
wdApp.DisplayAlerts = False
With wdApp
.Documents.Add
.Visible = True
.Selection.Paste

MsgBox "Your tables have successfully been exported to a new Word document."

End With
End Sub