Как установить ширину столбца при создании таблицы в VBScript или JavaScript?

Question

Я попытался применить метод 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

Answer 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)