Очистить Rtf в Edit Mode

  • Автор темы wowa
  • Дата начала
W

wowa

При изменении определенного значения в текстовом поле, мне надо очистить другое РТФ. Как я делаю:
Код:
Call uidoc.GotoField( "OK_Anm_4" )
Call uidoc.SelectAll
Call uidoc.Clear
Если в РТФ только текст, то оно очищает. Если есть аттачмент, то выдает сообщение: "This operation cannot be undone. Do you wish to proceed?"

Как можно обойти это сообщение? и есть ли другой способ очистить РТФ?
 
A

Akupaka

wowa
а попробуй убить поле, потом переоткрыть док.

Код:
dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocument
dim doc as NotesDocument

set uidoc = ws.CurrentDocument
set doc = uidoc.Document
Call doc.RemoveItem( RT-itemName$ )
Call ws.EditDocument(True, doc)
Call doc.ReplaceItemValue("SaveOptions", "0")
Call uidoc.Close(True)
 
A

Akupaka

Получилось иначе:
Код:
	Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
'Call doc.RemoveItem( "RTItem" )
Call uidoc.Refresh(True) ' TRUE!!!
Set rtItem = doc.GetFirstItem("RTItem")
Call rtItem.Remove()
If Not(doc.HasItem("Form")) Then
Call doc.ReplaceItemValue("Form", "TestRTClear")
End If
Call ws.EditDocument(True, doc)
Call doc.ReplaceItemValue("SaveOptions", "0")
Call uidoc.Close(True)
 
W

wowa

.

Добавлено: Akupaka, большое спасибо, вроде все как надо работает
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!