How to export selective EXCEL data to selected cells in WORD

Hi there,

I've been working on an excel spreadsheet that makes a bunch of calculations and pastes the results in an 'output sheet'. I would like to automatically copy these values to a (prefabricated) word document. The Word document contains some tables that contain text and empty cells. I would like to paste values from the 'output scheet' to these empty cells.
I haven't got a clue on how to do this. I looked around on the web, but I can't find anything.
Could you guys suggest a method?

Thanks!

Schzuki

There are a couple of ways to do this, both involving creating a Word object by Excel VBA, opening the Word file in this and then using Word's own VBA to make the insertions.

One way is to reference the target table directly by its index number and then cells within that table by their coordinates.

WordApp.ActiveDocument.Tables(N).Cell(M + 1, 1).Range.Text = Range("A1")

Another way is to place a distinctive piece of text in each target cell and use Word's replace functionality.

WordApp.Selection.HomeKey Unit:=wdStory
            With WordApp.Selection.Find
                .Text = "#XYZ123#"
                .Replacement.Text = Range("A1")
            End With
            WordApp.Selection.Find.Execute Replace:=wdReplaceOne

I'll be trying these solutions, Thanks for the quick response!