Word

  • Автор темы IrinaK
  • Дата начала
I

IrinaK

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

IrinaK

#3
Мне шаблонный вариант не подходит. Сделала так, что при нажатии на кнопку создается табличка в 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]
 
S

Sandr

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

IrinaK

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

morpheus

скриптописец
07.08.2006
3 915
1
#7
IrinaK
_http://notesnet.ru/nn/notesnet.nsf/note/C02EEFC07EDF26A0C3256F58004AA385

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

LIGHT

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#11
Хм. Выделяете нужные документы, потом правой кнопкой [Copy Selected as Table] ну а дальше в Word в Excel да хоть в блокнотик.
Замечу, что это довольно глючная вещь в категоризированном представлении при условии, что выделяемые документы находятся сразу в нескольких категориях.
 
I

IrinaK

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

SkyDream

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

morpheus

скриптописец
07.08.2006
3 915
1
#15
SkyDream
Ищите в хэлпе на File Operations (Open) там всё доступно расписано
 

Kizarek86

Lotus team
20.07.2007
864
4
#17
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