Notesrichtextrange

Тема в разделе "Lotus - Программирование", создана пользователем 11BOSS11, 15 июл 2010.

Статус темы:
Закрыта.
  1. 11BOSS11

    11BOSS11 Гость

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

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

    Код (Text):
    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?:
     
  2. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    В стартовом посте чувствуется паника :ya_lamo:
     
  3. 11BOSS11

    11BOSS11 Гость

    :ya_lamo: та да.........
    помочь не хочешь???...........
    ох я и запарилсО с этим лотусом уже.........=(
     
  4. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    у каждого инструмента есть преимущества и недостатки
    последние проявляются особенно ярко, при попытках использовать инструмент не по назначению
     
Загрузка...
Похожие Темы - Notesrichtextrange
  1. imendan
    Ответов:
    4
    Просмотров:
    2.240
Статус темы:
Закрыта.

Поделиться этой страницей