🚀 go-pugleaf

Hi Ariel,

Try something like this:



Rem BoxParagraphs.vbs 
Rem An InDesign CS4 VBScript 
Rem 
Rem Converts all paragraphs of a given paragraph style 
Rem to single-cell tables. 
Set myInDesign = CreateObject("InDesign.Application.CS4") 
Set myDocument = myInDesign.Documents.Item(1) 
Set myStyle = myDocument.ParagraphStyles.Item("HRBox") 
myInDesign.FindTextPreferences = idNothingEnum.idNothing 
myInDesign.ChangeTextPreferences = idNothingEnum.idNothing 
myInDesign.FindTextPreferences.AppliedParagraphStyle = myStyle 
Set myFoundItems = myDocument.FindText() 
myInDesign.FindTextPreferences = idNothingEnum.idNothing 
If myFoundItems.Count <> 0 Then 
    For myCounter = myFoundItems.Count To 1 Step -1 
        Set myFoundItem = myFoundItems.Item(myCounter) 
        Set myStartCharacter = myFoundItem.Characters.Item(1) 
        Rem Special case for the last paragraph in a story. 
        Set myEndCharacter = myFoundItem.Characters.Item(-1) 
        If myEndCharacter.Contents = vbCr Then 
            Set myEndCharacter = myFoundItem.Characters.Item(-2) 
        End If 
        Rem Get the text of the paragraph, excluding the return character. 
        Set myText = myFoundItem.Texts.ItemByRange(myStartCharacter, myEndCharacter) 
        Rem Convert the paragraph to a table. 
        Set myTable = myText.Item(1).ConvertToTable 
        Rem Adjust table properties here, if necessary. 
    Next 
End If

Thanks,

Ole