Documntos word y excelll
Hola, si estas leyendo esto ya te doy las gracias, sabes me gustaría que me ayudes ya que en mi proyecto de foxpro 9.0 necesito guardar un documento tanto word como excel en la base de datos si me pudieras ayudar te lo agradecería
De antemano gracias adiós
De antemano gracias adiós
1 respuesta
Respuesta de speralta72
1
oWord=CREATEOBJECT("Word.Application")
oWord.WindowState=2
_CLIPTEXT=mytable.memofield
oWord.Documents.Add.Content.Paste
oWord.ActiveDocument.CheckSpelling()
oWord.Visible=.F.
=oWord.ActiveDocument.Select
cText=oWord.Selection.Text
cText=LEFT(cText,LEN(cText)-1)
REPLACE mytable.memofield WITH cText
_CLIPTEXT=""
OWord. Documents. Close(0)
OWord. Quit(0)
oWord.WindowState=2
_CLIPTEXT=mytable.memofield
oWord.Documents.Add.Content.Paste
oWord.ActiveDocument.CheckSpelling()
oWord.Visible=.F.
=oWord.ActiveDocument.Select
cText=oWord.Selection.Text
cText=LEFT(cText,LEN(cText)-1)
REPLACE mytable.memofield WITH cText
_CLIPTEXT=""
OWord. Documents. Close(0)
OWord. Quit(0)
