🚀 go-pugleaf

Now I've stumbled onto a new problem. The find characterstyle portion is not working.... I just can't win here. 

Here's my code: 

Dim myInDesign As InDesign.Application 
    Dim FoundText As InDesign.Objects 
    Set myInDesign = CreateObject("InDesign.Application.2.0") 
    Rem Create a dummy document 
    'Set myDocument = myInDesign.Documents.Add 
    myInDesign.Open ("d:\testcharstyletable.indd") 
    Set myDocument = myInDesign.Documents.item(1) 
    Rem Create an example character style. 
    Set findstyle = myDocument.CharStyles.Add 
    'Set mytextframe = myDocument.Pages.Item(1).TextFrames.Add 
    ' clear out existing data 
    myInDesign.FindPreferences = idNothing 
    myInDesign.ChangePreferences = idNothing 
    ' setup find style 
    'myInDesign.FindPreferences.CharacterStyle = "oats_storetextframe" 
    CharacterStyle = "oats_storetextframe" 
    Set findstyle = myDocument.CharStyles.item(CharacterStyle) 
    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 
            mytextframe.GeometricBounds = myGetBounds(myDocument.Pages.item(1), myDocument) 
            mytextframe.TextContents = "This is paragraph 1." & vbCr & "This is paragraph 2." & vbCr & "This is paragraph 3." & vbCr & "This is paragraph 4." 
            mytextframe.Paragraphs.item(2).CharacterStyle = findstyle 
            mytextframe.Paragraphs.item(4).CharacterStyle = findstyle 

Next 
    End If