betovsp Posted March 18, 2014 Report Share Posted March 18, 2014 Olá pessoal, estou precisando dessa classe pra implementar o word em meu sistema. Alguém pode me enviar por favor. Vlw Beto. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 18, 2014 Report Share Posted March 18, 2014 Mira: Só ela: https://code.google.com/p/fivewin-contributions/downloads/detail?name=TWord.rar&can=2&q= Todas disponibles: https://code.google.com/p/fivewin-contributions/downloads/list?q=label:library abs, Quote Link to comment Share on other sites More sharing options...
betovsp Posted March 18, 2014 Author Report Share Posted March 18, 2014 Vlw João, agora não consigo dar um replace e abrir o word sempre da o "erro ao abrir gerenciador de textos" STATIC FUNCTION ImprimeWord() LOCAL cDirWord:=CurDrive() +":\"+ CurDir() Local cFile:=cDirWord+"\RECALC.DOC" oWord := TWord():New() If ( oWord:IsVisible() ) oWord:Hide() Endif sysWait(1) TRY oWord:OpenDoc(cFile) oWord:Replace( "{NRCONTRATO}", vContrato) CATCH oError // E avisamos ao usuario o motivo do erro! MsgStop("Erro ao Abrir Gerenciador de Textos.","Word") Return NIL End oWord:Preview() //oWord:Printdoc(.F.) //oWord:PrintDoc( .F., , , , , , , nPrtcopia) oWord:End() Return(.T.) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 18, 2014 Report Share Posted March 18, 2014 Se não conseguir agora... http://forums.fivetechsupport.com/viewtopic.php?f=6&t=15553&p=80558&hilit=oWord%3AOpenDoc#p80558 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14193&p=73121&hilit=oWord%3AOpenDoc#p73121 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=13419&p=69046&hilit=oWord%3AOpenDoc#p69046 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=7277&p=33292&hilit=oWord%3AOpenDoc#p33292 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=1110&p=4537&hilit=oword+opendoc#p4537 abs, Quote Link to comment Share on other sites More sharing options...
betovsp Posted March 18, 2014 Author Report Share Posted March 18, 2014 Se não conseguir agora... http://forums.fivetechsupport.com/viewtopic.php?f=6&t=15553&p=80558&hilit=oWord%3AOpenDoc#p80558 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14193&p=73121&hilit=oWord%3AOpenDoc#p73121 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=13419&p=69046&hilit=oWord%3AOpenDoc#p69046 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=7277&p=33292&hilit=oWord%3AOpenDoc#p33292 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=1110&p=4537&hilit=oword+opendoc#p4537 abs, João, continua da mesma forma, não abre... Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 18, 2014 Report Share Posted March 18, 2014 O Word está instalado Beto?? Quote Link to comment Share on other sites More sharing options...
VLNUNES Posted March 18, 2014 Report Share Posted March 18, 2014 Olá Betovsp;O erro pode está sendo provocado devido a "cDirWord:=CurDrive() +":\"+ CurDir()". Tente por o seu "RECALC.DOC" em uma pasta e copia-lo para uma pasta temporária conhecida exemplo "C:\doc_tmp" e trocar "cDirWord+"\RECALC.DOC" por "C:\doc_tmp"\RECALC.DOC" e veja se funciona, pois tive um problema semelhante e o Evandro me passou a dica. Hoje faço assim : cORIG := "AUXILIAR\Ficha de paciente.DOC" cDEST := "C:\ODTTEMP\MODELO\FICHA.doc" // Copia o arquivo original para a pasta temporária COPYFILE(cORIG ,cDEST,.F.) // Gerar um array com nome do "campo" que estará entre [] a ser substituído no word e o conteúdo do arquivo de dados SELECT FICHP ZAP APPEND BLAN REPLACE COPACCAR WITH STRZERO(PACIE->CODIGOPA,5) // CÓDIGO REPLACE NOPACCAR WITH ALLTRIM(PACIE->NOMEDOPA) // NOME REPLACE DNPACCAR WITH DTOC(PACIE->DTANASPA) // DATA NASCIMENTO REPLACE MRPACCAR WITH ALLTRIM(PACIE->MEDICOPA) // MÉDICO REPLACE DIPACCAR WITH DTOC(PACIE->DTAINCPA) // DATA INICIO aCampos := {} //------------------- DADOS DO PACIENTE aadd( aCampos, { 'codpaci',ALLTRIM(FICHP->COPACCAR ) } ) // CÓD. PACIENTE aadd( aCampos, { 'nompaci',ALLTRIM(FICHP->NOPACCAR ) } ) // NOME PACIENTE aadd( aCampos, { 'dtnpaci',ALLTRIM(FICHP->DNPACCAR ) } ) // DT NASCI aadd( aCampos, { 'medresp',ALLTRIM(FICHP->MRPACCAR ) } ) // MÉD. RESPON aadd( aCampos, { 'dtintra',ALLTRIM(FICHP->DIPACCAR ) } ) // DATA DE INICIO // Invoca rotina de impressão e passa como parametro a Array criadas PREEFIPA(aCampos) // PREENCHER FICHA DO PACIENTE ... ... //--------------------------------- IMPRESSÃO FUNCTION PREEFIPA( aCampos ) local x, oWord, cModelo:="C:\ODTTEMP\MODELO\FICHA.doc" //importante colocar a letra do drive senão dá erro oWord := TWord():New() // inicia o objeto OLE Word if oWord:IsVisible() oWord:Hide() endif oWord:OpenDoc( cModelo ) // abre o documento modelo for x = 1 to len( aCampos ) oWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] ) next aRqfinal := 'C:\ODTTEMP\FICHA2.doc' * oWord:preview() // visualiza o documento no preview do Word * oWord:Visualizar() // visualiza o documento oWord:PrintDoc(.t.) // imprime o documento sem apresentar na tela oWord:Save(aRqfinal) // salva o documento sem apresentar na tela oWord:end() Vander Quote Link to comment Share on other sites More sharing options...
betovsp Posted March 18, 2014 Author Report Share Posted March 18, 2014 O Word está instalado Beto?? Sim João, office 2007 Quote Link to comment Share on other sites More sharing options...
betovsp Posted March 19, 2014 Author Report Share Posted March 19, 2014 Vander, também não funcionou. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 19, 2014 Report Share Posted March 19, 2014 http://forums.fivetechsupport.com/viewtopic.php?f=2&t=3956&p=135633&hilit=word+ejemplo#p135633 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24189&p=130525&hilit=word+ejemplo#p130525 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24183&p=130408&hilit=word+ejemplo#p130408 Quote Link to comment Share on other sites More sharing options...
betovsp Posted March 19, 2014 Author Report Share Posted March 19, 2014 João, Vander. Resolvido da seguinte forma: Abri o documento no office 2010, salvei como word 97-2003, pronto, funcionou com a função que postei no inicio. Coisas da informática. Obrigado. Beto. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.