🚀 go-pugleaf

I'm generating a my pages entirely from a database using VB. In one
table that I generate, I use one font for an entry word, and another
font for the definition e.g.

1. TEXT IN ARIAL definition in times
2. TEXT2 IN ARIAL definition2 in times

I haven't been able to figure out how to do this in a more
straightforward manner. Can someone give me any tips? This code is
working, but it seems convoluted. I need to generate a different
table, that switched fonts several times (in order to insert some
windings) so a more direct and efficient solution would be greatly
appreciate. Here is what I have now. Notice that I create a table with
a row count of 7--I only need 6 rows, but if I set rowcount = 6, I
only get 5 rows (bug in indesign?):


            ' Draw textframe/table for compound defs
            tf = oPage.TextFrames.Add
            a(0) = 1.125
            a(1) = 0.25
            a(2) = a(0) + 1.1875
            a(3) = a(1) + 3
            tf.GeometricBounds = a
            Dim BackCompoundString As String

            For index = 0 To 5
                BackCompoundString = BackCompoundString & index + 1 &
"." & Me.Compounds(index).Hiragana & " " &
Me.Compounds(index).Definition & vbCr
            Next

            Debug.WriteLine(BackCompoundString)

            tf.TextContents = BackCompoundString
            For paraIndex = 0 To 5
                oPara = tf.Paragraphs.Item(paraIndex + 1)
                startPos = oPara.Characters.Item(1)
                endPos =
oPara.Characters.Item(Len(Me.Compounds(paraIndex).Hiragana) + 3)
                myChars = oPara.Characters.ItemByRange(startPos,
endPos).item(1)
                myChars.characterstyle =
oDocument.CharStyles.item("Definition Japanese")

                startPos =
oPara.Characters.Item(Len(Me.Compounds(paraIndex).Hiragana) + 3 + 1)
                endPos = oPara.Characters.Item(-1)
                myChars = oPara.Characters.ItemByRange(startPos,
endPos).item(1)
                myChars.characterstyle =
oDocument.CharStyles.item("Definition English")

                'oPara.AppliedFont = oFont
                oPara.PointSize = 10
                oPara.Justification = InDesign.idJustification.idLeft
            Next paraIndex
            tbl = tf.ParentStory.Tables.Add
            With tbl
                .ColumnCount = 1
                .RowCount = 7
            End With
            Call AdjustTableStroke(tbl, 0)
            For Each oCell In tbl.Cells
                With oCell
                    .TopInset = 0.0417
                    .BottomInset = 0.0417
                End With
            Next
            tf.Locked = True
            tf = Nothing