Word

Тема в разделе "Lotus - Программирование", создана пользователем IrinaK, 9 апр 2008.

  1. IrinaK

    IrinaK Гость

    подскажите, пожалуйста! с чего мне вообще надо начать и хотя бы принцип работы. Мне необходимо при выборе нескольких людей в представлении сделать экспорт их данных в Word (экспорт осуществляется нажатием на кнопку)
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
  3. IrinaK

    IrinaK Гость

    Мне шаблонный вариант не подходит. Сделала так, что при нажатии на кнопку создается табличка в Word с заголовками, в первой колонке отображается номер записи, а как туда вывести остальные данные из представления?
    [codebox]Sub ExpTableD
    Dim DocNumber As Integer ' Нумерация записей
    DocNumber=0
    Dim i As Integer 'Номера колонок

    wObj.TableSelectRow
    wObj.Bold 0
    wObj.LeftPara
    wObj.NextCell

    For i=1 To ColCount
    wObj.NextCell
    Next
    wObj.PrevCell
    Set entryCat = entry
    wObj.TableSelectRow
    wObj.TableMergeCells
    wObj.Bold 1
    wObj.CenterPara
    wObj.Insert Cstr(DocNumber+1)
    wObj.NextCell

    wObj.TableSelectRow
    wObj.LeftPara
    wObj.Bold 0
    wObj.NextCell

    DocNumber = DocNumber+1
    wObj.TableSelectRow
    wObj.NextCell

    For i=1 To 11
    Select Case i
    Case 1:
    wObj.CenterPara
    wObj.Insert Cstr(DocNumber)

    ' Case 2:
    ' wObj.CenterPara
    ' wObj.Insert Cstr(entry.ColumnValues(2))
    ‘выдает ошибку’

    End Select
    wObj.NextCell
    Next

    Set entry = nav.GetNext(entry)

    Print "Идет экспорт в MS Word: документ " & DocNumber

    End Sub[/codebox]
     
  4. Sandr

    Sandr Гость

    Точно так же, как вы номер вставляли, только данные свои зачитывайте из нужных Вам нотес-документов...
     
  5. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Не проще ли вставить в эксель?
     
  6. IrinaK

    IrinaK Гость

    пожалуйста, можно подробней, как именно это сделать?! как мне их зачитывать из представления?
     
  7. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    IrinaK
    _http://notesnet.ru/nn/notesnet.nsf/note/C02EEFC07EDF26A0C3256F58004AA385

    ( и не поленитесь прочитать комментарии )
     
  8. LIGHT

    LIGHT Гость

    Хм. Выделяете нужные документы, потом правой кнопкой [Copy Selected as Table] ну а дальше в Word в Excel да хоть в блокнотик. Это конечно если для себя, а если для людей :) то на форуме слишком нокго тем как это можно реализовать. Не тривиальная задача.
     
  9. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    LIGHT
    ох какой быстрый, я же сказал
     
  10. IrinaK

    IrinaK Гость

    Morpheus, спасибо!
     
  11. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Замечу, что это довольно глючная вещь в категоризированном представлении при условии, что выделяемые документы находятся сразу в нескольких категориях.
     
  12. IrinaK

    IrinaK Гость

    а возможно сделать, чтобы переносились не все данные из представления, а только выбранные?
     
  13. SkyDream

    SkyDream Гость

    а как экспортировать текстовое значение поля в файл *.txt ?
     
  14. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    SkyDream
    Ищите в хэлпе на File Operations (Open) там всё доступно расписано
     
  15. SkyDream

    SkyDream Гость

    подкиньте простой примерчик, от чего плясать
     
  16. Kizarek86

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    SkyDream, в txt, или файл с любым расширением....

    Код (Text):
    Dim stream As NotesStream
    Dim session As New NotesSession
    Set stream = session.CreateStream
    Call stream.Open(filename) 'имя сохраняемого/изменяемого файла
    Call stream.Truncate 'чистим содержимое потока, т.е. того что находиться в файле если он есть
    Call stream.Writetext(buffer) 'пишем туда данные хранящиеся в переменной buffer
    Call stream.Close
     
Загрузка...
Похожие Темы - Word
  1. seoman2
    Ответов:
    6
    Просмотров:
    134
  2. seoman2
    Ответов:
    57
    Просмотров:
    985
  3. Dragon108
    Ответов:
    0
    Просмотров:
    197
  4. Ruska132
    Ответов:
    36
    Просмотров:
    1.430
  5. Mrack
    Ответов:
    0
    Просмотров:
    364

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