de notes a word
Publicado por Jesús (3 intervenciones) el 06/02/2007 10:57:52
Hola:
tengo que pasar datos de notes a word por marcadores. Ya lo he conseguido hacer, pero tengo que comprobar que en el doc word el marcador que va a heredar los datos exista, para que no de un fallo si dicho marcador no existe.
¿Alguien sabe como solucionarlo? El código es este de abajo:
Gracias de antemano
Dim camino As String
Dim session As New NotesSession
Dim Doc As notesdocument
Dim WkSp As New NotesUIWorkspace
Dim objWord As Variant
Dim wordDoc As Variant
Dim Seleccion As Variant
Dim object As NotesEmbeddedObject
Set doc = WkSp.CurrentDocument.Document
camino= "c:\word.doc"
Set objWord = createObject("word.application")
objWord.visible=True
objWord.Documents.Add camino, , , True
Set wordDoc = objWord.Documents(objWord.Documents.Count)
Set Seleccion =wordDoc.ActiveWindow.Selection
Seleccion.GoTo -1,,,"telefono" ' me situo en el marcador
Seleccion.InsertAfter Doc.dos(0) ' escribo el valor del campo
Seleccion.GoTo -1,,,"vivienda" ' me situo en el marcador
Seleccion.InsertAfter Doc.uno(0) ' escribo el valor del campo
tengo que pasar datos de notes a word por marcadores. Ya lo he conseguido hacer, pero tengo que comprobar que en el doc word el marcador que va a heredar los datos exista, para que no de un fallo si dicho marcador no existe.
¿Alguien sabe como solucionarlo? El código es este de abajo:
Gracias de antemano
Dim camino As String
Dim session As New NotesSession
Dim Doc As notesdocument
Dim WkSp As New NotesUIWorkspace
Dim objWord As Variant
Dim wordDoc As Variant
Dim Seleccion As Variant
Dim object As NotesEmbeddedObject
Set doc = WkSp.CurrentDocument.Document
camino= "c:\word.doc"
Set objWord = createObject("word.application")
objWord.visible=True
objWord.Documents.Add camino, , , True
Set wordDoc = objWord.Documents(objWord.Documents.Count)
Set Seleccion =wordDoc.ActiveWindow.Selection
Seleccion.GoTo -1,,,"telefono" ' me situo en el marcador
Seleccion.InsertAfter Doc.dos(0) ' escribo el valor del campo
Seleccion.GoTo -1,,,"vivienda" ' me situo en el marcador
Seleccion.InsertAfter Doc.uno(0) ' escribo el valor del campo
Valora esta pregunta


0