Un ejemplo de exportacion a word
Se ejecuta desde una vista y sobre los documentos seleccionados
Sub Initialize
'********************* Exportación desde una vista los valores de los campos nombre, apellidos y direccion de los documentos seleccionados a una hoja de Excell *********************
'********************* 22/12/00 *********************
Dim wdFilename As Variant
wdFilename = "e:\gente.doc" 'Fichero de Word donde vamos a exportar los datos
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Dim ndcol As notesdocumentcollection
Dim row As Integer
Dim escritos As Integer
Set ndcol=db.unprocesseddocuments
Set doc=ndcol.getfirstdocument
Dim Word As Variant
Print "Conectando a Word..."
Set Word = CreateObject( "Word.Application" )
Word.Visible =False '// No mostramos la ventana de Word
Word.documents.Open(wdFilename)
Print "Comenzando la Exportación a Word ..."
Set docDocument=word.activedocument
For i=1 To ndcol.count
docDocument.NOMBRE1=doc.nombre(0)' pasamos al campo de word nombre el valor del campo de Notes Nombre
docDocument.apellidos=doc.ritem 'pasamos al campo de word apellidos el valor del campo de Notes ritem
Set myRange = docDocument.Words(1) 'obtenemos la selección, en este caso la primera palabra
With myRange
myRange.font.Bold = True
myRange.font.Name = "Verdana"
myRange.font.Size = 12
.text=myRange.text+" "+doc.nombre(0)
.InsertParagraphAfter
.InsertAfter doc.ritem
End With
Set doc=ndcol.getnextdocument(doc)
Next
docDocument.Close True 'Cerramos la hoja de Word y Guardamos
Word.Quit '// Cerramos word
End Sub
|
Otros documentos de LotusScript
|