🚀 go-pugleaf

GeekGod-- 

Try this: 



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 
Rem Create an example character style. 
Set findstyle = myDocument.CharStyles.Add 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.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 
' clear out existing data 
myInDesign.FindPreferences = idNothing 
myInDesign.ChangePreferences = idNothing 
' setup find style 
myInDesign.FindPreferences.CharacterStyle = findstyle 
Set FoundText = myDocument.Search 
If FoundText.Count > 0 Then 
    For myCounter = FoundText.Count To 1 Step -1 
        Set myFoundItem = FoundText.Item(myCounter) 
        myFoundItem.Tables.Add 
    Next 
End If 




Does this example work for you? I think part of the problem has been that it should be FoundText.Item(1), rather than FoundText.Items(1). Sorry I missed that! 

Thanks, 

Ole