Creating Word Chart From Excel Via VBA?

I have a bunch of data about companies in an Excel workbook. I need to be able to create a "summary document" about a selected company in word. One of the items that needs to be in this summary is a pie chart.

This code works fine for generating the basic text of the document:

Code:
Sub export_to_word()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim companyName As String
Dim address As String
Dim revenue As String

[code]....

Creating the chart has been more problematic. I adapted the following code from an example found on MSDN:

Code:
Dim valueChart As Chart
Dim chartWorkSheet As Excel.Worksheet
Set valueChart = wrdDoc.Shapes.AddChart.Chart
valueChart.ChartType = xl3DPie
Set chartWorkSheet = valueChart.ChartData.Workbook.Worksheets(1)
chartWorkSheet.ListObjects("Table1").Resize chartWorkSheet.Range("A1:B12")

[code]....

What I've found though is that this code is based on a macro inside the word document, not excel. So it runs fine from within word, but within excel it throws an error at this line

Code:
Set chartWorkSheet = valueChart.ChartData.Workbook.Worksheets(1)

because ChartData is not in the object model in Excel. how to proceed at this point.