Thanks, you got me started. I think DoVerb is the key. This seems to work.

oWord = createobject("word.application")
oWord.Documents.Open("c:\junk.doc")
oWord.ActiveDocument.Bookmarks("B_ChartOne").Select
oWord.Selection.InlineShapes(1).OLEFormat.DoVerb

oChart = oWord.Selection.InlineShapes(1).OLEFormat.Object
oChart.ChartTitle.Caption="This is New Chart Title"
oChart.Application.DataSheet.Range("A1").Value = 100
oChart.Application.DataSheet.Range("A2").Value = 75
oChart.Application.Quit

oWord.ActiveDocument.Bookmarks("B_Title").Select
oWord.Selection.TypeText("This is a Doc Title")
oWord.ActiveDocument.PrintOut
oWord.Quit(0)
release oWord, oChart


>Honestly not sure, I never tried it. Sounds like you would select it first then :
>
>oChart = oWord.Selection.ShapeRange(1).OLEFormat.Object
>
>Cetin