 <p>Try </p> <pre><code>Sub HelloWord() Dim wordApp As Object Set wordApp = GetObject(, "Word.Application") MsgBox wordApp.Activedocument.FullName End Sub </code></pre> <p>Once you've got a handle on the the wordApp, you can access all the objects in the model as normal.</p> <p>The downvote might be because this doesn't sound like a very efficient solution - might it be better to get the Excel data into a Word document or format the Excel document in an acceptable way. You're invoking two pretty chunky apps here to do one thing.</p>