LOTUSSCRIPT/COM/OLE CLASSES

Examples: Alignment property
This example creates a new rich text paragraph style object and centers it in the document.

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.Alignment = ALIGN_CENTER
Call richText.AppendParagraphStyle(rtpStyle)
Call richText.AppendText("Where we are now")
Call richText.AddNewLine(1)
Call richText.AppendText (" and where we go from here.")
Messagebox rtpStyle.Alignment
Call doc.Save(True, False)

Véase también

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