Word

[IrinaK]

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

 

[Medevic]

Предлагаю начать с поиска по форуму.

https://codeby.net/threads/11924.html

 

[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]

 

[Sandr]

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

 

[Medevic]

Не проще ли вставить в эксель?

 

[IrinaK]

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

 

[morpheus]

IrinaK
_http://notesnet.ru/nn/notesnet.nsf/note/C02EEFC07EDF26A0C3256F58004AA385

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

 

[LIGHT]

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

 

[morpheus]

LIGHT
ох какой быстрый, я же сказал

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

 

[IrinaK]

Morpheus, спасибо!

 

[Medevic]

Хм. Выделяете нужные документы, потом правой кнопкой [Copy Selected as Table] ну а дальше в Word в Excel да хоть в блокнотик.

Замечу, что это довольно глючная вещь в категоризированном представлении при условии, что выделяемые документы находятся сразу в нескольких категориях.

 

[IrinaK]

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

 

[7hi]

Ссылка скрыта от гостей

 

[SkyDream]

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

 

[morpheus]

SkyDream
Ищите в хэлпе на File Operations (Open) там всё доступно расписано

 

[SkyDream]

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

 

[Kizarek86]

SkyDream, в txt, или файл с любым расширением....

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