Notesrichtextrange

  • Автор темы 11BOSS11
  • Дата начала
Статус
Закрыто для дальнейших ответов.
1

11BOSS11

Гость
#1
Как мне шагать по ячейке таблички в ричтекститеме ??
:ya_lamo:

Добавлено: нужно доступатся к нужным параграфам ячейки и брать от туда данные ......
допустим к самой ячейке я получаю доступ:

Код:
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim dc As NotesDocumentCollection
Set dc = db.UnprocessedDocuments
Dim doc As NotesDocument
Set doc = dc.GetFirstDocument
Dim rti As NotesRichTextItem
Set rti = doc.GetFirstItem("prn_table")
Dim rtnav As NotesRichTextNavigator
Dim paranav As NotesRichTextNavigator
Dim rtRangePara As NotesRichTextRange
Set rtnav = rti.CreateNavigator
If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
Messagebox "Body item does not contain a table,",, _
"Error"
Exit Sub
End If
Dim rtt As NotesRichTextTable
Set rtt = rtnav.GetElement
Dim rtrange As NotesRichTextRange
Set rtrange = rti.CreateRange
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
firstFlag = True
For i& = 1 To rtt.RowCount
For j& = 1 To rtt.ColumnCount
If Not firstFlag Then
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
Else

firstFlag = False
End If

[b][u]'СДЕСЬ Я ДОСТУПАЮСЬ К ЯЧЕЙКАМ!!	[/u][/b]





Next
Next
а вот теперь мне надо как то гулять по самим ячейкам!!
:what?:
 

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
#2
В стартовом посте чувствуется паника :ya_lamo:
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 483
360
#4
ох я и запарилсО с этим лотусом уже.........=(
у каждого инструмента есть преимущества и недостатки
последние проявляются особенно ярко, при попытках использовать инструмент не по назначению
 
Статус
Закрыто для дальнейших ответов.