LS, dynamic table & RichTextParagraphStyle

I have used the following code to create my table style from LS.

For i = 1 To 6

Set tableColStyles(i) = Session.CreateRichTextParagraphStyle

tableColStyles(i).FirstLineLeftMargin = 0

tableColStyles(i).LeftMargin = 0

Select Case i

Case 1

tableColStyles(i).RightMargin = Ruler_One_Inch * .30

tableColStyles(i).Alignment = Align_Center

Case 2

tableColStyles(i).RightMargin = Ruler_One_Inch * 1.1

tableColStyles(i).Alignment = Align_Left

Case 3

tableColStyles(i).RightMargin = Ruler_One_Inch * 2

tableColStyles(i).Alignment = Align_Left

Case 4

tableColStyles(i).RightMargin = Ruler_One_Inch * 2

tableColStyles(i).Alignment = Align_Left

Case 5

tableColStyles(i).RightMargin = Ruler_One_Inch * 2

tableColStyles(i).Alignment = Align_Left

Case 6

tableColStyles(i).RightMargin = Ruler_One_Inch * 2

tableColStyles(i).Alignment = Align_Left

End Select

Next

This code create the styles early in my code. Later I populate the fields. If I want to add one row I recreate the existing table and add a row.

This works fine but now I want to have the top row of my table “Align_Center” and I cannot manage to do what I want.

Any advice?

(hopefully with some code example…!!)