Word to Excel???

[Parra]

I have a macro in Word that formats a report. I also have another macro in excel that finishes the formatting and adds some formulas and totals up the numbers.

Is there a way to automatically have the excel macro run, once the word macro is finished?

Thanks

 

[Colo]

Hi. Please try this.

'Assumption
Word File is Open.
Excel File is Not Open.
The Excel file is in a current folder.

<pre>
'--Word standard module-------------------------
Sub Word_Proc()
Dim XlApp as object
Set XlApp = CreateObject("Excel.Application")
'Whatever
MsgBox "... done", , "Word_Proc"
With XlApp
.Visible = True
.workbooks.Open ("Book1.xls")
.Application.Run "XL_Proc"
End With
Set XlApp = Nothing
End Sub
'-------------------------------------------------

'--Excel standard module--------------------------
Sub XL_Proc()
'Whatever
MsgBox "...done", , "XL_Proc"
End Sub
'-------------------------------------------------
</pre>