🚀 go-pugleaf

Hi,

READ THIS!

Here is the first "spaguetti" code to solve this problem. Many details are missing.

1. Only work with simple Row Headers, NO MERGED CELL (for now I working on it)
2. You need to define how many row you want in each text frame
TOTAL_ROWS = ? (can be at run time)
3. In the last text frame of flow table, put extra space, script don't check that

Now try it and give me some comment (I don't have Mac)

Dim myInDesign As Indesign.Application
Dim myHeader As Indesign.Row
Dim myRow As Indesign.Row

Private Sub Command2_Click()
    Set myInDesign = CreateObject("InDesign.Application.2.0")

TOTAL_ROWS = 15

Set mySelection = myInDesign.Selection
    If mySelection.Count > 0 Then
        Select Case TypeName(mySelection.Item(1))
            Case "TextFrame"
                Set myTextFrame = mySelection.Item(1)

If TypeName(myTextFrame.PreviousTextFrame) <> "TextFrame" Then

Set myTable = myTextFrame.Tables.Item(1)
                 Set myHeader = myTable.Rows.Item(1)

Ancho = myHeader.Height + myTable.Rows.Item(2).Height * (TOTAL_ROWS + 1)
                 Cont = 0

While (TypeName(myTextFrame) = "TextFrame")
                  myBounds = myTextFrame.GeometricBounds
                  myB1 = myBounds(0)
                  myB2 = myBounds(1)
                  myB3 = myBounds(2)
                  myB4 = myBounds(3)
                  myB3 = Ancho + myB1

myTextFrame.GeometricBounds = Array(myB1, myB2, myB3, myB4)

If Cont > 0 Then
                   Set myRow = myTable.Rows.Add(idAfter, myTable.Rows.Item(TOTAL_ROWS + (Cont - 1) * TOTAL_ROWS + Cont))
                   Ok = ChangeRow(myRow, myHeader)
                  End If

Set myTextFrame = myTextFrame.NextTextFrame
                  Cont = Cont + 1
                 Wend

Else
                  MsgBox "Select The Text Frame at the begining of the table"
                End If

End Select
    End If





End Sub

Function ChangeRow(myRow, myHeader)
 myRow.Height = myHeader.Height

For myCellCounter = 1 To myHeader.Cells.Count
  myRow.Cells.Item(myCellCounter).TextContents = myHeader.Cells.Item(myCellCounter).TextContents
  'Assuming that in each Header Cell are only one Paragraph
  myRow.Cells.Item(myCellCounter).Paragraphs.Item(1).ParagraphStyle = _
        myHeader.Cells.Item(myCellCounter).Paragraphs.Item(1).ParagraphStyle

myRow.Cells.Item(myCellCounter).Paragraphs.Item(1).CharacterStyle = _
        myHeader.Cells.Item(myCellCounter).Paragraphs.Item(1).CharacterStyle
 Next
End Function

Roberto