Exportar hacia Word

Ver el tema anterior Ver el tema siguiente Ir abajo

Exportar hacia Word

Mensaje por JoseRios el Lun Feb 25, 2008 2:49 pm

Aquí exportamos hacia Word.
Código:
Dim wdFilename As Variant
wdFilename = "c:\lista.doc"
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim ndcol As notesdocumentcollection
Dim doc As NotesDocument
Dim row As Integer
Dim escritos As Integer
Dim Word As Variant

Set db = session.CurrentDatabase
Set ndcol=db.unprocesseddocuments
Set doc=ndcol.getfirstdocument

Set Word = CreateObject( "Word.Application" )
Word.Visible =False '// No mostramos la ventana de Word
Word.documents.Open(wdFilename)

Set docDocument=word.activedocument
For i=1 To ndcol.count
  docDocument.NOMBRE1=doc.nombre(0)
  docDocument.apellidos=doc.ritem
  Set myRange = docDocument.Words(1)
  With myRange
      .font.Bold = True
      .font.Name = "Verdana"
      .font.Size = 12
      .text=.text+" "+doc.nombre(0)
      .InsertParagraphAfter
      .InsertAfter doc.ritem
  End With
  Set doc=ndcol.getnextdocument(doc)
Next
call docDocument.Close(True)
Word.Quit
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.