!Atención! Si quieres colaborar con algún articulo, contacta con nosotros enviando un email a social.media@nrdigital.es

  • Exportando a MS Word 2010 desde Lotus Notes 8.5

    Publicado por: Americo Luna , 05/29/2013 Leido ( 794 ) veces.

    Hola, amig@s, en esta ocasión les demostraré desde cero cómo crear una base de datos en Lotus Notes Versión 8.5 y luego exportar los datos hacia MS Word 2010.


  • Hola, amig@s, en esta ocasión les demostraré desde cero cómo crear una base de datos en Lotus Notes Versión 8.5 y luego exportar los datos hacia MS Word 2010.



    Paso número 1

    Hacer click en el botón de crear una nueva aplicación.


    Paso número 2

    Poner nombre a nuestra base de datos, seleccionar el servidor en el cual estará o si la dejaremos en local. En el caso del ejemplo está en local, luego click en aceptar.

    Paso número 3

    Hacer click en el botón de nuevo formulario. Luego en la ventana de nuevo formulario ingresamos el nombre del mismo y le ponemos un “alias” también.

    Paso número 4

    Ingresar cuatro campos de tipo texto y el formulario quedará de la siguiente manera:

    Paso número 5

    Modificamos la vista que está creada en nuestra base de datos ingresando todos los campos que creamos en el paso anterior, y nos quedará algo como esto:

    Paso número 6

    Creamos un agente, el cual será el encargado de exportar la información de Lotus Notes 8.5 hacia MS Word 2010. Hacemos click en el botón del nuevo agente, ponemos nombre y “alias” y luego aceptar.

    Ahora, la parte de la magia: en el apartado de Declaraciones digitaremos el siguiente código:

    Dim nd As NotesDocument

    Dim fila, celda, par, pares, impar, impares As Integer
    Dim view As NotesView
    Dim doc As NotesDocument


    Como siguiente paso digitaremos:

    Sub Initialize

    Dim db As New NotesDatabase(“”, “NRDigital.nsf”)
    ‘--------------- Seleccionamos la vista creada ---------------
    Set view = db.GetView( “VistaNRD” )
    ‘--------------- Creamos y mostramos una nueva instancia de Word ---------------’
    ‘---probando declarando como variant
    Dim WordApp, docu, myRange, myTable As Variant
    Set WordApp = CreateObject(“Word.Application”) NR DIGITAL | 51
    ‘--------------- Mostramos la ventana de Word ---------------
    WordApp.Visible = True
    ‘---------- Creamos el documento de Word y quitamos los margenes ----------’
    WordApp.Documents.Add
    WordApp.ActiveDocument.PageSetup.TopMargin = 0
    WordApp.ActiveDocument.PageSetup.BottomMargin = 0
    WordApp.ActiveDocument.PageSetup.LeftMargin = 0
    WordApp.ActiveDocument.PageSetup.RightMargin = 0
    ‘--------- Creamos la tabla para insertar las etiquetas o campos ---------
    Set docu = WordApp.ActiveDocument
    ‘--------- alineación vertical del texto (izquierda = 0 , centrada = 1, derecha = 2) ---------’
    ‘-----WordApp.Selection.Cells.VerticalAlignment = 1
    ‘-------- establecemos la sangria (izquierda y derecha) --------
    WordApp.Selection.ParagraphFormat.LeftIndent = 20
    WordApp.Selection.ParagraphFormat.RightIndent = 20
    ‘-------alineación horizontal del texto (izquierda = 0 , centrada = 1, derecha = 2, justificado = 3)-------’
    WordApp.Selection.ParagraphFormat.Alignment = 0
    ‘-------- definimos el estilo de fuente (fuente, tamaño, estilo) --------’
    WordApp.Selection.Font.Bold = False
    WordApp.Selection.Font.Name = “Verdana”
    WordApp.Selection.Font.Size = 7
    ‘---------------------- Definimos e iniciamos variables necesarias las etiquetas ----------------------’
    ‘------Agrege ndcol y tabla y tambien i------’
    Dim ndcol, i As Integer
    ndcol= 0
    ‘--------------------------------- Exportación ---------------------------------’
    Print “- Creando las etiquetas o campos, por favor espere... -”
    Set nd = view.GetFirstDocument
    ndcol = view.entrycount
    For i =1 To ndcol
    WordApp.Selection.TypeParagraph
    WordApp.Selection.TypeText(“nombre: “)
    WordApp.Selection.TypeText(nd.nombres(0))
    WordApp.Selection.TypeText(“ “)
    WordApp.Selection.TypeText(nd.apellidos(0))
    WordApp.Selection.TypeText(“ “)
    WordApp.Selection.TypeText(“email: “)
    WordApp.Selection.TypeText(nd.correoelectronico(0))
    WordApp.Selection.TypeParagraph
    Set nd = view.GetNextDocument(nd)
    ‘-------- Movemos el cursor un tabulador atrás para quitar la selección --------’
    WordApp.Selection.MoveLeft 1
    Next
    Print “- Terminado el proceso de creación de etiquetas... -”
    End Sub


    Luego guardamos todo y regresamos la vista que creamos en el paso número 5.

    Paso número 7

    Modificamos la vista creada, creamos una acción y digitamos el siguiente código:

    @Command( [ToolsRunMacro] ;”ExportaraMSword” )


    Paso número 8

    Ingresamos algunos datos, abrimos la vista, seleccionamos los documentos que queremos expor­tar y pulsamos click en el botón ExportaraWord.


    Esperamos unos segundos a que aparezca la magia y listo.


    Bueno, amig@s, espero que este sencillo artículo de cómo exportar a MS Word 2010 desde Lotus Notes 8.5 les haya sido de mucha ayuda, y recuerden, como dice nuestro amigo Juan Carlos Trigo, “De qué sirve el conocimiento si no se comparte.” Saludos, y hasta luego.

    Americo Luna
    @mecoluna
    mecoluna@gmail.com








Deja tu dirección email y te notificamos las novedades.

Suscripción


Publicidad

NotesRing Services,S.L.
Revista
Patrocinadores