LOTUSSCRIPT/COM/OLE CLASSES

Examples: InterLineSpacing property
This example creates a new rich text paragraph style object and sets the InterLineSpacing property.

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.Username)
Call doc.AppendItemValue("subject", _
"Meeting agenda")
Dim rtpStyle As NotesrichTextParagraphStyle
Set rtpStyle = session.CreateRichTextParagraphStyle
Dim richText As New NotesRichTextItem(doc,"Body")
rtpStyle.InterLineSpacing = SPACING_DOUBLE
Call richText.AppendParagraphStyle(rtpStyle)
Call richText.AppendText("Where are we now?")
Call richText.AddNewLine(1)
Call richText.AppendText (" Where we go from here.")
Messagebox rtpStyle.InterLineSpacing
Call doc.Save(True, False)

Véase también

Glosario
¿Desea opinar sobre la Ayuda o sobre la utilidad del producto?