Copiar de un Richtext a otro
Página 1 de 1.
Copiar de un Richtext a otro
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
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|