Campos de un DataWindow a MS Word en Solo lectura
Publicado por Luz Facundo E. (19 intervenciones) el 19/09/2011 18:45:02
Hola.
Primero en MS Word inserte marcadores para cada campo del datawindow y el codigo que utilizo es lo siguiente:
OleObject l_OleObject
integer li_result
l_OleObject = create oleobject
li_result = l_OleObject.ConnectToNewObject('word.application')
if li_result <> 0 then
messagebox('OLE ERROR','No puede conectarse a MS WORD')
RETURN
end if
l_oleobject.documents.open(gs_ruta_memo_vac+"MEMO_VAC.doc")
l_OleObject.visible = true
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_MES").select
l_OleObject.selection.typetext(ls_mes)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_PERSONAL").select
l_OleObject.selection.typetext(ls_personal)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_INICIO").select
l_OleObject.selection.typetext(ls_FINICIO)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_FIN").select
l_OleObject.selection.typetext(ls_FFIN)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_RESPONSABLE").select
l_OleObject.selection.typetext(ls_responsable)
destroy l_OleObject
Que codigo agregaria, para que el Documento de MS WORD se muestre con los datos del datawindow como SOLO LECTURA?
El documento de Ms Word si muestra los datos del DataWindow, me faltaria que se muestre en SOLO LECTURA, para que el usuario no pueda modificarlo y guardarlo como solo lectura.
Gracias por su ayuda.
Primero en MS Word inserte marcadores para cada campo del datawindow y el codigo que utilizo es lo siguiente:
OleObject l_OleObject
integer li_result
l_OleObject = create oleobject
li_result = l_OleObject.ConnectToNewObject('word.application')
if li_result <> 0 then
messagebox('OLE ERROR','No puede conectarse a MS WORD')
RETURN
end if
l_oleobject.documents.open(gs_ruta_memo_vac+"MEMO_VAC.doc")
l_OleObject.visible = true
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_MES").select
l_OleObject.selection.typetext(ls_mes)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_PERSONAL").select
l_OleObject.selection.typetext(ls_personal)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_INICIO").select
l_OleObject.selection.typetext(ls_FINICIO)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_FIN").select
l_OleObject.selection.typetext(ls_FFIN)
l_OleObject.ActiveDocument.Bookmarks.item("MARCADOR_RESPONSABLE").select
l_OleObject.selection.typetext(ls_responsable)
destroy l_OleObject
Que codigo agregaria, para que el Documento de MS WORD se muestre con los datos del datawindow como SOLO LECTURA?
El documento de Ms Word si muestra los datos del DataWindow, me faltaria que se muestre en SOLO LECTURA, para que el usuario no pueda modificarlo y guardarlo como solo lectura.
Gracias por su ayuda.
Valora esta pregunta
0