OLE Error when trying to run a macro

chrscote · #3 07-07-2021, 10:23 AM

The problem I'm having is coming from DOORS when I try to run the macro. Here is the code I'm using to run the macro that needs 2 inputs:

Code:

objWord = oleCreateAutoObject("Word.Application");

if(null objWord)
	errorBox("Unable to open word application");

//Open the docm file, insert contents of newly created HTML file and save as .doc
olePut(objWord, "Visible", true);
oleGet(objWord, "Documents", objDocs);
put(autoArgs, sHTMLFileName);
oleMethod(objDocs, "Open", autoArgs, objDoc);

put(macroArgs, nameOfMacro);
put(macroArgs, CMG_USER_DESKTOP);
put(macroArgs, sLastBL);

sErrorMess = oleMethod(objWord, "Run", macroArgs);
if (!null sErrorMess) infoBox(sErrorMess);

//infoBox("Document saved.");
oleMethod(objWord, "quit");

The macro starts out with:

Code:

Sub SaveHTMLAsDoc(sPath As String, sBaseline As String)

Am I adding the macroArgs in the wrong order or is it something else?

Chris

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word template with Macro keeps getting an error ''Run-time error 5941''	Marcel	Word VBA	3	12-17-2019 04:55 PM
Error with exit macro	brent chadwick	Word VBA	5	01-28-2017 01:49 PM
Help with Macro error	jar208	Excel Programming	2	12-06-2016 03:57 PM
Simple VBA macro error	Formulayeti	PowerPoint	1	12-09-2011 10:02 PM
Macro Error 5174	muster36	Word VBA	0	08-12-2011 03:34 AM