Any Way To Indent A Section Via LotusScript?

HCL Domino Domino Forum
1

I can use RichTextParagraphStyle to indent text - but my code creates nested sections - and I want to indent inner sections - which paragraph styles don’t seem to do. Any ideas, please?

2

Subject: Any Way To Indent A Section Via LotusScript?

If a third party product is an option, our Midas Rich Text LSX can do this. Otherwise, look at DXL and modifying the margings using XML.

3

Subject: Any Way To Indent A Section Via LotusScript?

Could you not indent with tabs? I know it’s not quite the same, but that way you can simply use the AddTab method in NotesRichTextItem.

–

4

Subject: RE: Any Way To Indent A Section Via LotusScript?

Unfortunately, it puts the section on a new line, so the tab would not indent the section itself.

My workaround is to use a different colour section bar, and use a large bold font in the section title, (things that LotusScript CAN do) so that the lack of indentation becomes less important.

5

Subject: Any Way To Indent A Section Via LotusScript?

Hi, you can do this by create the sections in tables.

Create a table, insert first section. To add an indented section, create a new table under the first section with two columns, where first column sets the indention width. Then put the next section in column two.

Table (1R 1C)

–Section Level 1

----Table (1R 2C)

------Section Level2 in C2

--------Table (1R 2C)

----------Section Level 3 in C2

…

…

etc.

Sample code from Visual Basic

Set lnrtitem = MailDoc.CREATERICHTEXTITEM(“Body”)

Call lnrtitem.BEGINSECTION("Level 0")

   Call lnrtitem.APPENDTABLE(1, 2)

Call lnrtitem.ENDSECTION

   

Set rtnav = lnrtitem.CREATENAVIGATOR

Call rtnav.FINDLASTELEMENT(7)

  Call lnrtitem.BEGININSERT(rtnav)

    Call lnrtitem.BEGINSECTION("Level 1")

      Call lnrtitem.APPENDTABLE(1, 2)

    Call lnrtitem.ENDSECTION

  Call lnrtitem.ENDINSERT



Set rtnav = lnrtitem.CREATENAVIGATOR

Call rtnav.FINDLASTELEMENT(7)

  Call lnrtitem.BEGININSERT(rtnav)

    Call lnrtitem.BEGINSECTION("Level 2")

    Call lnrtitem.ENDSECTION

  Call lnrtitem.ENDINSERT

Hope it helps