CODEWITHSUNDEEP
vb.netexcelms-wordole
brian
brian

Reputation: 51

Modify an embedded Excel object inside a Word doc

I need example code or even a 3rd party object that will allow me to get to an excel object embedded in a word doc. I have already tried Aspose and they do not have the capabilities yet. Has anyone done it or do you know of a 3rd party object that will?

Upvotes: 2

Views: 2535

Answers (2)

brian
brian

Reputation: 51

Ok, i did it! I appreciate the link posted by Remou. It did provide some support after I got past the initial hurdle...

Here is my code:

        WordApp.Documents.Open("C:\Report.docx")
        Dim iOLE As Int16
        Dim oSheet As Object
        Dim oOLE As Object
        For iOLE = 1 To WordApp.ActiveDocument.Content.ShapeRange.Count 'These are the embedded objects
            If Not WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat Is Nothing Then '- make sure it is OLE
                If WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat.ProgID.Contains("Excel") Then '- make sure it's an Excel object
                    '- I have found an Excel Object!!!
                    WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat.Activate()
                    oOLE = WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat.Object
                    oSheet = oOLE.Worksheets(1) '- I can assert that each of them has at least one sheet and that I need the first one...
                    oSheet.Range("BB3") = "I did it!" '- setting some text to verify I made it in...

                End If

            End If

        Next

        WordApp.ActiveDocument.SaveAs("c:\temp\report_test.docx")

Upvotes: 3

Fionnuala
Fionnuala

Reputation: 91306

You may find some information here: VBScript and multilevel OLE?

Upvotes: 1

Related Questions