Question

有没有办法在Lotusscript中设置某个部分的样式？我想模仿莲花笔记中用历史回复的部分类型。

使用lotusscript

设置边距，使部分显示在最左侧。
设置部分样式，使其显示为回复历史记录时使用的“表格状”部分标题。

我可以看到如何设置颜色，字体等。但是我看不出如何设置该部分的实际样式。

Answer 1

我认为你能够实现这一目标的唯一方法就是使用DXL。即，对包含您想要的样式的部分的文档进行DXL导出。编写代码以生成相同的DXL，使用您需要自定义的任何内容（例如，标题）进行修改，并将其导入新文档。然后编写代码来打开这个新文档，阅读包含该部分的富文本项，并使用AppendRTItem将其放入您正在处理的文档中。

Answer 2

查看您的个人资料，您已熟悉Xpages。

如果应用程序不复杂，我会选择Xpages。因为造型比传统更容易。笔记应用。对我而言。

这是一个lotusscript的例子，它在备忘录中制作部分，因为我不确定你正在制作什么样的应用程序以及什么平台，笔记，网络或两者。

On breaking par是一个例子，它使用邮件文件和备忘录表单，并将部分和文本放在邮件正文中

这是代码

   Sub Initialize
   Dim session As New NotesSession
   Dim mailDb As New NotesDatabase("", "")
   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim body As NotesRichTextItem
   Dim style As NotesRichTextStyle
   Dim color As NotesColorObject

   Call mailDb.OpenMail
   Set doc = mailDb.CreateDocument
   Call doc.ReplaceItemValue("Form", "Memo")
   Set body = doc.CreateRichTextItem("Body")
   Set style = session.CreateRichTextStyle
   Set color = session.CreateColorObject
   Call body.AppendText("This is some text before the section")
   Call body.AddNewline(2)
   Call body.BeginSection("Expanded Section", style, color, True)
   Call body.AppendText("Here is some text within the section")
   Call body.AddNewline(2)
   Call body.AppendText("Here is some more text within the section")
   Call body.EndSection
   Call body.AddNewline(2)
   Call body.AppendText("This is some text between the two sections")
   Call body.AddNewline(2)
   Call body.BeginSection("Collapsed Section")
   Call body.AppendText("Here is some text within the section")
   Call body.AddNewline(2)
   Call body.AppendText("Here is some more text within the section")
   Call body.EndSection
   Call body.AddNewline(2)
   Call body.AppendText("This is some text after the section")
   Call doc.Save(True, False, False)
   Call ws.EditDocument(True, doc)
   Call doc.Remove(True)
End Sub

对于completness，这里是一个如何从xpage调用lotusscript代理的教程 Tutorial-Introduction-to-XPages-Exercise-20 希望它有所帮助。

编辑：记得他们在笔记客户端中持有survey关于css和html的内容。

设置部分样式以模仿Lotus Notes回复中使用的历史记录？

2 个答案: