☰

如何在 vbscript 或 javascript 中创建表格时设置列宽？

tag-icon • tag-icon lotus-notes
如何在 vbscript 或 javascript 中创建表格时设置列宽？

我尝试应用 AppendTable 方法，如中所述本文 适用于 IBM Lotus Domino Designer。

虽然我已经成功创建了具有固定宽度的表格，但我无法将段落样式数组传递给 AppendTable 函数，因此该函数什么也不执行。

我可以创建一个有 5 列的固定宽度表格，但这不适用于 2 列，并且不会返回任何错误消息（仅在电子邮件中绘制 5 列表格）。

有什么办法可以解决这个问题吗？

现有代码（vbscript）：

Dim NPGst()
Redim NPGst(2)

Set NPGst(0) = NotesSessions.createRichTextParagraphStyle
NPGst(0).FirstLineLeftMargin = 10
NPGst(0).LeftMargin = 10
NPGst(0).RightMargin = 1000

Set NPGst(1) = NotesSessions.createRichTextParagraphStyle
NPGst(1).FirstLineLeftMargin = 10
NPGst(1).LeftMargin = 10
NPGst(1).RightMargin = 1000

Call NotesRTItem.AppendTable (3,2,,1440,NPGst)
Call NotesRTItem.AppendTable (3,5,,1440)

Call NotesRTItem.update

答案1

我不使用 Lotus，但我确实注意到您没有将 NPGst 数组传递给创建五列的函数调用。也许这就是它起作用的原因？;)

我尝试将您的代码与这个例子，我注意到那里的代码看起来不一样。将示例代码应用到您的代码中，结果如下：

Dim styles(1 To 2) As NotesRichTextParagraphStyle

For i% = 1 To 2 Step 1
  Set styles(i%) = session.CreateRichTextParagraphStyle
  styles(i%).LeftMargin = 10
  styles(i%).FirstLineLeftMargin = 10
  styles(i%).RightMargin = 1000
Next

Call body.AppendTable (3, 5,, 1440, styles)

相关内容