Copiar de un Richtext a otro

por JoseRios Lun Feb 25, 2008 5:39 pm

Copia el campo1 Richtext al campo2 Richtext en el mismo documento.

Código:: Dim w As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim docA As NotesDocument Dim rtitemA As Variant Dim rtitemB As Variant Set uidoc = w.CurrentDocument Set docA = uidoc.Document Call uidoc.Save Set rtitemA = docA.GetFirstItem( "Campos1" ) Set rtitemB = docA.GetFirstItem( "Campos2" ) If ( rtitemA.Type = RICHTEXT And rtitemB.Type = RICHTEXT ) Then Call rtitemB.AddNewLine(1) Call rtitemB.AppendRTItem( rtitemA ) Call docA.Save(True, True) Call uidoc.Close End If