Archivo del sitio

Exportación a word en LotusScript

Llevo tres años trabajando en el desarrollo de aplicaciones para la plataforma lotus notes, sufiente para saber que existe poca documentación en nuestro idioma, intentaré ir haciendo mi humilde aporte mediante algunos codigos útiles que he podido desarrollar o han compartido conmigo otros programadores a lo largo de este tiempo.

Exportar a excel es un proceso común en muchos lenguajes, pero en algunos casos puede requerirse algo diferente, exportar un documento a Microsoft Word. A continuación les dejo un codigo muy acotado pero se que para muchos será un buen comienzo para realizarlo.

Sub Initialize
On Error Goto ER

Dim word As Variant
Dim worddoc As NotesDocument
Set word = CreateObject(“Word.Application”)
Call word.documents.add
Set wdSelection = word.Selection
wdSelection.Font.Name = “Arial”
wdSelection.Font.Size = “14”
wdSelection.Font.Bold = False
wdSelection.TypeText “Aqui escribo un texto sin negrita”
wdSelection.Font.Bold = True
wdSelection.TypeText “Aqui escribo un texto con negrita”
word.Visible = True
‘wdDoc.SaveAs(“C:\Datos\testdoc.doc”) estas dos lineas permitiran en vez de abrirlo guardarlo en disco.
‘word.Quit
Exit Sub
Er:
Msgbox Error & ” en click linea ” & Erl
word.Quit
Set word = Nothing
Exit Sub
End Sub

A %d blogueros les gusta esto: