🚀 go-pugleaf

I figured out the above and now I am at this point (where I was when I first started)... 

Set myInDesign = CreateObject("inDesign.Application.2.0") 
    myInDesign.Open ("d:\testcharstyletable.indd") 
    Set myDocument = myInDesign.Documents.item(1) 
    CharacterStyle = "oats_storetextframe" 
    Set findstyle = myDocument.CharStyles.item(CharacterStyle) 
    ' clear out existing data 
    myInDesign.FindPreferences = idNothing 
    ' setup find style 
    myInDesign.FindPreferences.CharacterStyle = findstyle 
    ' clear out existing data 
    myInDesign.ChangePreferences = idNothing 
    ' get a collection of text objects that have that style applied 
    myInDesign.ChangePreferences.CharacterStyle = findstyle 
    'Set FoundText = myDocument.Search("", , , "") 
    Set FoundText = myDocument.Search 
    If FoundText.Count > 0 Then 
        For myCounter = FoundText.Count To 1 Step -1 
            Set myFoundItem = FoundText.item(myCounter) 
            'Set mytextframe = myFoundItem.Tables.Add 
            myFoundItem.Tables.Add 

myFoundItem.GeometricBounds = myGetBounds(myDocument.Pages.item(1), myDocument) 
            myFoundItem.TextContents = "This is paragraph 1." & vbCr & "This is paragraph 2." & vbCr & "This is paragraph 3." & vbCr & "This is paragraph 4." 
            myFoundItem.Paragraphs.item(2).CharacterStyle = findstyle 
            myFoundItem.Paragraphs.item(4).CharacterStyle = findstyle 

Next 
    End If 

It finds the character style but once it trys to invoke: 

myFoundItem.Tables.Add 

I get: 

Object doesn't support this property or method. 

What is going on here? I am completly lost.