Otro ejemplo sacado de los foros
Dim workspace As New notesuiworkspace
Dim session As New notessession
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim word As Variant
Dim wordoc As Variant
Set uidoc = workspace.currentdocument
Set doc = uidoc.Document
'create the word object
Set word = CreateObject("Word.Application") 'Crea el objeto word
Call word.documents.add("dónde está la plantilla word?") 'Crea un nuevo doc basado en la plantilla .doc
Set wordoc = word.activedocument 'get a hande for the active document
'Asigna los valores de los campos
wordoc.formfields("campo1").result = doc.campo1(0)
wordoc.formfields("campo2").result = doc.campo2(0)
wordoc.FormFields("campo3").result = doc.campo3(0)
wordoc.FormFields("campo4").result = doc.campo4(0)
wordoc.FormFields("campo5").result = doc.campo5(0)
wordoc.FormFields("campo6").result = doc.campo6(0)
wordoc.FormFields("campo7").result = doc.campo7(0)
wordoc.FormFields("campo8").result = doc.campo8(0)
wordoc.FormFields("campo9").result = doc.campo9(0)
wordoc.FormFields("campo10").result = doc.campo10(0)
wordoc.saveas("nombre documento") 'Salva el documento con el nombre "nombre documento.doc"
word.visible = True
|
Otros documentos de LotusScript
|