эспорт в Word

[Saoron-live]

Как экспортировать в Word из Lotus'a отдельные поля ? поделитесь скриптами!!!

 

[Domino6]

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

ИСПРАВЛЕНА

 

[Hedg]

<!--QuoteBegin-Domino6+21:06:2006, 11:45 -->
<span class="vbquote">(Domino6 @ 21:06:2006, 11:45 )</span><!--QuoteEBegin-->[snapback]38633" rel="nofollow" target="_blank[/snapback]</div>[/quote]
И чё с этой ссылкой делать?

 

[Domino6]

Ссылка исправлена

 

[Saoron-live]

чето у меня ни шыша не получается!!! нельзя-ли разложить всё по полочкам чтоб такому как мне было понятно

 

[Guest]

Для: Saoron-live
А слабо сделать поиск по форуму слова Word? ))
Уже столько раз это обсуждали....

Вот например:
https://codeby.net/threads/6737.html?hl=word

 

[Saoron-live]

Для: Юлия
в общето я писал слово экспорт он мне находил то что нужно но без скрипта
А так я не особо въежаю
Я всего лишь новичёк в этом деле!

 

[trueq]

Всё достаточно просто.
Dim db As NotesDatabase
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
' Создаем объект Word
Set wordAppObject = CreateObject("Word.Application")
' Делаем объект видемым
wordAppObject.Visible = True
Call wordAppObject.Documents.Add
Set wordDocObject = wordAppObject.ActiveDocument
' Передаем значение поля famil в Word
wordDocObject.Paragraphs(1).Range.InsertBefore doc.famil(0)

 

[Domino6]

Для: trueq
А как учитывать форматирование - это больше заполнение а не экспорт

 

[Saoron-live]

Для: trueq
огромное спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
работает!!

 

[trueq]

Для: Domino6
Верно. Форматирование можно конечно ручками написать, но это не выход. Получается тоже заполнение.