Copiar de un Richtext a otro

Ver el tema anterior Ver el tema siguiente Ir abajo

Copiar de un Richtext a otro

Mensaje por JoseRios el 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
avatar
JoseRios

Cantidad de envíos : 39
Edad : 32
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

Ver perfil de usuario http://noteroschile.wordpress.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.