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

wowa

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

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
2
#2
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)
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
2
#6
Получилось иначе:
Код:
	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

Well-Known Member
01.02.2007
845
0
#7
.

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