0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
|
|
1 | |
Notesrichtextrange14.07.2010, 18:53. Показов 8215. Ответов 3
Метки нет (Все метки)
Как мне шагать по ячейке таблички в ричтекститеме ??
: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?:
0
|
14.07.2010, 18:53 | |
Ответы с готовыми решениями:
3
Notesrichtextrange Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
|
|
14.07.2010, 18:54 | 2 |
В стартовом посте чувствуется паника :ya_lamo:
0
|
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
|
|
14.07.2010, 18:57 | 3 |
Сообщение от Omh
помочь не хочешь???........... ох я и запарилсО с этим лотусом уже.........=(
0
|
0 / 0 / 0
Регистрация: 23.08.2008
Сообщений: 6,252
|
|
14.07.2010, 22:39 | 4 |
последние проявляются особенно ярко, при попытках использовать инструмент не по назначению
0
|
14.07.2010, 22:39 | |