Замена файла Word в поле ReachText

@kROMyto · Регистрация: 03.04.2004

Студворк — интернет-сервис помощи студентам

Ситуация:
На форме есть поле "rtDocPreview" типа "Rich text",
где хранится файл Word, который загружается по кнопке "Выбрать".
Пользователь выдит содержимое этого прикрепленного файла (предпросмотр)

В поле него "rtDocPreview" внедряется OLE объект путем notesUIDocument.CreateObject.

Необходимо программно, когда форма находится в режиме редактирования и по кнопке выбран
другой файл, вместо существуещего OLE объекта, вставить другой.

Я пытаюсь это делать так:
1. Удалить EmbeddedObject,
2. Вставить другой на его место.

Удаление делаю так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
 
Set doc = ws.CurrentDocument.Document
Set rtitem = doc.GetFirstItem( "rtDocPreview" )
If ( rtitem.Type = RICHTEXT ) Then
If Not( Isempty(rtitem.EmbeddedObjects) ) Then
Forall eo In rtitem.EmbeddedObjects
Call eo.Remove
Call rtitem.Update
Call doc.Save(True , True )
End Forall
End If
 
End If

Удаление происходит, однако поле "rtDocPreview" не обновлятся.
Оно обновляется если только переоткрыть документ.

Вопрос:
1. Как обновить поле "Rich text" после удаления EmbeddedObject?
2. Может есть другой способ обновить объект?

@Vysytymko · 10.05.2004, 12:37

Если я правильно поняла - то цель - открыть другой файл, а в документ приатачить этот.
Предлагаемое решение не подойдет для всех деловых прецедентов, но в ряде случаев можно:

1. Файл приатачить как ты уже делал
2. А открывать не файл с РТФ поля, а тот который выбрали с файлухи, сделать это можно так:
( просто вставляю код не чистя лишнее, но наглядно будет)
Dim MSApp As Variant, dCN As Variant
Dim ds As Variant, d As Variant

If Not Isobject (MSApp) Then
Set MSApp = CreateObject ("Word.Application")
Set ds = MSApp.Documents
Set d = ds.Add ()
End If

Set dCN = ds.Open (fileName)
Call dCN.Range ().Copy ()
Call d.Range(d.Range().End -1, d.Range().End -1).Paste ()
Call d.Range(d.Range().End -1, d.Range().End -1).InsertBreak()

Call dCN.Close ()
bool = True
Kill fileName

If Isobject (MSApp) Then
If Not MSApp.Visible Then MSApp.Visible = True
If Isobject (d) Then Call d.Range(d.Range().End -2, d.Range().End -1).Delete ()
End If

Есть вариант, который прокатит при всех деловых прецедентах:
При выборе файла - реализвать описанный атач нового объекта, далее:

unid=doc.universalid
doc.saveOptions="0"
call doc.save(true,true)
call ws.currentdocument.close

это позволит закрыть документ без вопроса о сохранении

теперь:
set doc=db.GetDocumentbyUNID(unid)
call ws.editdocument(true,doc)
call doc.RemoveItem("saveoptions")
call doc.save(true,true)

ну а потом активируй объект - скорее всего получиться все нормально. Может и не получиться... хотя должно

@Vysytymko · 10.05.2004, 12:40

Я не виновата, что механизм форума вставляет вместо закрывающей скобки смайлики.

@kokom.yxy · 10.05.2004, 15:12

при послке ответа, Veselinka, можно отменить галочку "Включить смайлики?", тогда смайликов в сообщении не будет, а будет скобка.

@Vysytymko · 10.05.2004, 15:14

Gogan.exe, спасибо
;)

@kROMyto · 18.05.2004, 05:04

Спасибо Веселинка
Замечание

Code
1
2
Call dCN.Range ().Copy ()
Call d.Range(d.Range().End -1, d.Range().End -1).Paste ()

В любом случае сие плохо! Так как затирает текущее содержимое буфера обмена.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Vysytymko 0 / 0 / 0 Регистрация: 05.02.2004 Сообщений: 138
	10.05.2004, 12:37
	Если я правильно поняла - то цель - открыть другой файл, а в документ приатачить этот. Предлагаемое решение не подойдет для всех деловых прецедентов, но в ряде случаев можно: 1. Файл приатачить как ты уже делал 2. А открывать не файл с РТФ поля, а тот который выбрали с файлухи, сделать это можно так: ( просто вставляю код не чистя лишнее, но наглядно будет) Dim MSApp As Variant, dCN As Variant Dim ds As Variant, d As Variant If Not Isobject (MSApp) Then Set MSApp = CreateObject ("Word.Application") Set ds = MSApp.Documents Set d = ds.Add () End If Set dCN = ds.Open (fileName) Call dCN.Range ().Copy () Call d.Range(d.Range().End -1, d.Range().End -1).Paste () Call d.Range(d.Range().End -1, d.Range().End -1).InsertBreak() Call dCN.Close () bool = True Kill fileName If Isobject (MSApp) Then If Not MSApp.Visible Then MSApp.Visible = True If Isobject (d) Then Call d.Range(d.Range().End -2, d.Range().End -1).Delete () End If Есть вариант, который прокатит при всех деловых прецедентах: При выборе файла - реализвать описанный атач нового объекта, далее: unid=doc.universalid doc.saveOptions="0" call doc.save(true,true) call ws.currentdocument.close это позволит закрыть документ без вопроса о сохранении теперь: set doc=db.GetDocumentbyUNID(unid) call ws.editdocument(true,doc) call doc.RemoveItem("saveoptions") call doc.save(true,true) ну а потом активируй объект - скорее всего получиться все нормально. Может и не получиться... хотя должно 0

@Vysytymko 0 / 0 / 0 Регистрация: 05.02.2004 Сообщений: 138
	10.05.2004, 12:40
	Я не виновата, что механизм форума вставляет вместо закрывающей скобки смайлики. 0

@kokom.yxy 0 / 0 / 0 Регистрация: 19.04.2004 Сообщений: 146
	10.05.2004, 15:12
	при послке ответа, Veselinka, можно отменить галочку "Включить смайлики?", тогда смайликов в сообщении не будет, а будет скобка. 0

@Vysytymko 0 / 0 / 0 Регистрация: 05.02.2004 Сообщений: 138
	10.05.2004, 15:14
	Gogan.exe, спасибо ;) 0