Pulling check box info from Word to Excel

[bobgroove]

so it doesn't like the OLEObject protion of that code string you gave me earlier. "Method or data member not found" am I missing something else?

[RobDog888]

This is what I got, but the dumb InlineShape is giving me problems getting its text property.

Sub Macro1()
    'Behind a word document
    'Add a reference to MS Excel xx.0 Object Library
    Dim oXlApp As New Excel.Application
    Dim oWb As Excel.Workbook
    
    Set oXlApp = CreateObject("Excel.Application")
    
    Set oWb = oXlApp.Workbooks.Open("C:\Book1.xls")
    oXlApp.Visible = True
    'oWb.Sheets(1).Cells.Range("F2").Value = ActiveDocument.InlineShapes("CheckBox1").TextEffect.Text
 
End Sub

[bobgroove]

!!!!! i did it! finally got it figured out! here is the change....

Private Sub txtPONum_Change()
    Dim oXlApp As New Excel.Application
    Dim oWb As Excel.Workbook
    
    Set oXlApp = CreateObject("Excel.Application")
    
    Set oWb = oXlApp.Workbooks.Open("C:\test\test.xls")
    oXlApp.Visible = True
    oWb.Sheets(1).Cells.Range("F2").Value = txtPONum.Text
    
End Sub

Thanks so much for you help!

[RobDog888]

No prob, but where's the checkbox?