Power Builder - texto a Microsoft Word

If vid_pac > 0 then

	datawin.reset()

	Datawin.Retrieve(vid_pac, datetime(date(em_desde.text), time('00:00')), datetime(date(em_hasta.text), time('23:59')))

	Datawin.setsort("#6A")

	Datawin.sort()

	Datawin.groupcalc()

End if

dw_rte.reset()

For v_fila = 1 to datawin.rowcount()

	dw_rte.insertrow(0)

	dw_rte.scrolltorow(dw_rte.rowcount())

	dw_rte.setitem(dw_rte.rowcount(), 1, datawin.getitemstring(v_fila, "cf_informe"))

Next

varchi_text = 'C:\gesturnos\Historias Clinicas\' + sle_paciente.text + '.txt'

If NOT DirectoryExists ('C:\gesturnos\Historias Clinicas\') then CreateDirectory ('C:\gesturnos\Historias Clinicas\')

If dw_rte.SaveAs(varchi_text, Text!, FALSE) = 1 then

//If datawin.SaveAs(vpath_archi, Text!, FALSE) = 1 then

	rte_1.InsertDocument(varchi_text, TRUE, FileTypeText!)

End if

Integer v_Ret

If NOT DirectoryExists ('C:\gesturnos\Historias Clinicas\') then CreateDirectory ('C:\gesturnos\Historias Clinicas\')

varchi_doc = 'C:\gesturnos\Historias Clinicas\' + sle_paciente.text  + '.doc'

If FileExists(varchi_text) then FileDelete(varchi_text)

If FileExists(varchi_doc) then FileDelete(varchi_doc)

v_Ret = rte_1.SaveDocument(varchi_doc, FileTypeDoc!)

If v_ret  = 1 then

		Run("Explorer.exe " + varchi_doc)

	else

		Messagebox("Error", "Ha ocurrido algun error al generar el archivo de word, por favor, intentelo nuevamente!")

End if