Notesrichtextparagraphstyle

[11BOSS11]

у меня проблемы с заполнением:
масив строк,...........mas . - все параграфы по порядку всех ячеек.

перед вызовом функции щетчик утсанавливаем на 1 :

kkk=1
Call clearAllText( clonedRow1,mas,kkk)

дальше в самой подпрограме заполняю таким способом:

Private Sub clearAllText( node As NotesDOMNode ,mas As Variant , kkk)
If node.NodeType = DOMNODETYPE_TEXT_NODE Then
If node.ParentNode.NodeName = "par" Or node.ParentNode.NodeName = "run" Then
node.NodeValue = mas(kkk) + "еще добавляем текст" 
kkk=kkk+1
End If
End If

' рекурсивный вызов для потомков	
Dim child As NotesDOMNode
Set child = node.FirstChild 
Dim i As Long
For i = 1 To node.NumberOfChildNodes
Call clearAllText( child ,mas,kkk)
Set child = child.NextSibling
Next
End Sub

Получается , заполняет нормлаьно пока в ячейке таблице не свтретится болше 1го праграфа,- потом заганяет все оставшееся в эту ячейку.....



Добавлено:

Проблему решает серверный агент, подписанный сервером.
К тому же совсем не обязательно рисовать в рт-поле "лотусовую" таблицу. Можно сформировать html и cконвертировать в mime.

Спс....бум иметь ввиду ........

 

[11BOSS11]

вобщем, мне надо как то органиховать проход всех параграфов <tablerow> и их заполнение........

что у мну не получается..... :sorry:

 

[11BOSS11]

помогите пжжл...
не получается бегать по параграфам :

Private Sub clearAllText( node As NotesDOMNode ,mas As Variant , kkk)
If node.NodeType = DOMNODETYPE_TEXT_NODE Then
If node.ParentNode.NodeName = "par" Then
node.NodeValue = mas(kkk) + "еще добавляем текст" 
kkk=kkk+1
End If
End If

' рекурсивный вызов для потомков	
Dim child As NotesDOMNode
Set child = node.FirstChild 
Dim i As Long
For i = 1 To node.NumberOfChildNodes
Call clearAllText( child ,mas,kkk)
Set child = child.NextSibling
Next
End Sub

в таком варианте ф-я не видит параграфов в таблице..... если дописать Or node.ParentNode.NodeName = "run" ,- тогда норм, только это не подходит , - мне нужны именно параграфы.....

 

[11BOSS11]

Спасибо огромное всем!!!
решил проблему другим способом!! ))
тема закрыта)