Como definir a largura da coluna ao criar uma tabela em vbscript ou javascript?

Question

Eu tentei aplicar o método AppendTable conforme descrito em este artigo para o IBM Lotus Domino Designer.

Embora eu tenha criado com sucesso a tabela com largura fixa, Eu não consigo passar a matriz de estilos de parágrafo para a função AppendTable, isso então não faz nada.

Eu posso criar uma tabela de largura fixa com 5 colunas, mas isso não funciona para 2 colunas, e sem retornar nenhuma mensagem de erro (somente a tabela de 5 colunas é desenhada no e-mail).

Qualquer maneira de corrigir esse problema?

Código existente (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

Eu não uso o Lotus, mas observo que você não passa o array NPGst para a função chamada que cria as cinco colunas. Talvez seja por isso que funciona? ;)

Eu tentei comparar seu código com o encontrado em este exemplo , e eu observo que o código parece diferente. Aplicar o código de exemplo ao seu código fornece isso:

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)