Lotus Notes - de notes a word

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:de notes a word

Publicado por BEA (6 intervenciones) el 04/04/2007 11:30:32
Hola,

A ver si esto te ayuda:

If ActiveDocument.Bookmarks.Exists("temp") = True Then
'existe el marcador
end if

Saludetes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar