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

[wowa]

При изменении определенного значения в текстовом поле, мне надо очистить другое РТФ. Как я делаю:

Call uidoc.GotoField( "OK_Anm_4" )
Call uidoc.SelectAll
Call uidoc.Clear

Если в РТФ только текст, то оно очищает. Если есть аттачмент, то выдает сообщение: "This operation cannot be undone. Do you wish to proceed?"

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

 

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

 

[nvyush]

link removed

 

[Akupaka]

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

Не работает, атач остается. Видать придется атачи убивать дополнительно.

 

[nvyush]

Не работает, атач остается. Видать придется атачи убивать дополнительно.

Если рт-поле одно, можно заодно с ним удалить поле $FILE. Если нет — перебирать и удалять EmbeddedObjects

 

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

 

[wowa]

.

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