FiveTech Software tech support forums

Code: Select all

Numero RUT  <<RUT>>      //  puedes encerrarlos entre [ ],  < >, << >>, o como quieras 
Nombre  <<NOMBRE>>
Pais    <<PAIS>>
 

Code: Select all

Function ReplTextOnWord_2()
LOCAL cText, oWord, oDoc
local cDocPath   := CurDrive() + ":\" + curdir() + "\"
local cDoc       := "DocuDos.rtf"
local cDocSaveAs := "DocuDos_TMP.rtf"

  if !file( cDocPath + cDoc )
      MsgStop("No existe el fichero de plantilla " + cDocPath + cDoc,"Alto")
      return nil
  endif

  if (oWord := WinWordObj() ) == nil
     MsgStop( "MS Word no instalado" ,"Alto" )        
     return nil
  endif

  cText := MemoRead( cDocPath + cDoc )

  ReplaceText(@cText)
   
  MemoWrit( cDocPath + cDocSaveAs, cText )

  oDoc = oWord:Documents:Open( cDocPath + cDocSaveAs)

  if oDoc == nil
     MsgInfo("Error de creación del documento " +cDocSaveAs +". Asegúrese que no esté abierto." )          
  endif

  oDoc:Application:Visible := .t.
Return nil

//------------------------------------------------------//
static function ReplaceText(cText)
   cText := StrTran(ctext,"<<RUT>>"        ,   Alltrim(" 12345678910 ") )
   cText := StrTran(ctext,"<<NOMBRE>>" ,   Alltrim(" DONALDO TROMPETA ") )  
   cText := StrTran(ctext,"<<PAIS>>"       ,   Alltrim(" PAIS DE LAS MARAVILLAS ") )  

//Para reemplazar con datos de una DBF, puedes hacer:
//cText := StrTran(ctext,"<<NOMBRE>>" ,   Alltrim ( (cAlias)->Nombre) )  
//etc, etc...

return nil

Code: Select all

Function G_Altura_W()
            Local cTxtFile, oWord, oSel, oDoc,cOrigen,cDestino,cFile,cSave

            cOrigen:=  "C:\Desa\FichasWin\Doc\Doc_Bases\"
        cDestino:="C:\Desa\FichasWin\Doc\Doc_Bases\"

            cFile:=  "Alturapru6.rtf"
        cSave:=  "Alturapru11.doc"

            Nom1=" PACIENTE DE PRUEBA INFORME"
        rut1=" 11.111.111-1"
        naci1="Chilena"


     oWord:=TOleAuto():New( "Word.Application" )


    TRY
        oDoc := oWord:Documents:Open(cOrigen + cFile)
    CATCH
        MsgInfo("Error: No Puedo Abrir Archivo Plantilla --> "+cFile)
        oWord:Quit()
        Return NIL
    END


     oDoc:Select()

     oSel = oWord:Selection
     Reemplaza_Text( oSel, "[nombrepaciente]",AllTrim(Nom1))
         Reemplaza_Text( oSel, "[rut]",AllTrim(rut1))
         Reemplaza_Text( oSel, "[naciona]",AllTrim(naci1))


         oDoc:Invoke( "SaveAs", cDestino + cSave )
         //oWord:Visible:= .T.//;oWnd:Minimize()
         //oDoc:PrintOut()

         oDoc:Invoke('Close',0)
        
                oWord:Quit()


        Return

 Static Function Reemplaza_Text( oSel, cSrc, cRpl)
                oSel:Start = 0
                oSel:End = -1

                WHILE oSel:Find:Execute( cSrc )
                     oSel:Range:Text = cRpl
                ENDDO


            Return nil

Code: Select all

//---------------------------------------------------//
Function G_Altura_W()
   Local oWord, oSel, oDoc,cOrigen,cDestino,cFile,cSave, Nom1,rut1,naci1
   local oActiveDoc,aArrReplace, n

   cOrigen  := "C:\Desa\FichasWin\Doc\Doc_Bases\"
   cDestino := "C:\Desa\FichasWin\Doc\Doc_Bases\"

   cFile := "Alturapru6.rtf"
   cSave := "Alturapru11.doc"

   Nom1  := "PACIENTE DE PRUEBA INFORME"
   rut1  := "11.111.111-1"
   naci1 := "Chilena"
  
   TRY
        oWord := CreateObject("Word.Application")
    CATCH
        MsgInfo("Word no está instalado en esta PC. No se puede continuar")
        Return NIL
    END

    TRY
        oDoc := oWord:Documents:Open(cOrigen + cFile)
    CATCH
        MsgInfo("No se puede abrir el archivo plantilla " + cOrigen + cFile)
        oWord:Quit()
        Return NIL        
    END

    oWord:Visible:=.T.
    oDoc:Select()
    oSel = oWord:Selection

    // Crear Matriz de reemplazos
    aArrReplace := { { "[nombrepaciente]", AllTrim(Nom1) } ,;
                     { "[rut]"           , AllTrim(rut1) } ,;
                     { "[naciona]"       , AllTrim(naci1) } }
                   
    For n:=1 to Len(aArrReplace)
        Reemplaza_Text( oSel, aArrReplace[n][1], aArrReplace[n][2] )                  
    Next n

    oActiveDoc := oWord:Get("ActiveDocument")
    oActiveDoc:SaveAs(cDestino + cSave)

   * oActiveDoc:PrintOut()

   * oWord:Documents:Close()  
   * oWord:Quit()    
   
    SysRefresh()
Return nil

//---------------------------------------------------//
Static Function Reemplaza_Text( oSel, cSrc, cRpl)
                oSel:Start = 0
                oSel:End = -1

                WHILE oSel:Find:Execute( cSrc )
                     oSel:Range:Text = cRpl
                ENDDO

           Return nil

Code: Select all

//---------------------------------------------------//
Static Function Reemplaza_Text( oSel, cSrc, cRpl)
    Local wdCollapseEnd:=0
    LOCAL oRng := oSel:Document:Content

    IF AT( cSrc, oRng:Text ) = 0
        RETURN .F.
    ENDIF

    WHILE oRng:Find:Execute( cSrc )
        oRng:Text = cRpl
        oRng:Collapse( wdCollapseEnd )
    ENDDO

RETURN .T.
 

Code: Select all

Function G_Francisco2()
   Local oWord, oSel, oDoc,cOrigen,cDestino,cFile,cSave, Nom1,rut1,naci1
   local oActiveDoc,aArrReplace, n

   cOrigen  := "C:\Desa\FichasWin\Doc\Doc_Bases\"
   cDestino := "C:\Desa\FichasWin\Doc\Doc_Bases\"

   cFile := "Alturapru6.rtf"
   cSave := "Alturapru12.doc"

   Nom1  := "PACIENTE DE PRUEBA INFORME"
   rut1  := "11.111.111-1"
   naci1 := "Chilena"

   TRY
        oWord := CreateObject("Word.Application")
    CATCH
        MsgInfo("Word no está instalado en esta PC. No se puede continuar")
        Return NIL
    END

    TRY
        oDoc := oWord:Documents:Open(cOrigen + cFile)
    CATCH
        MsgInfo("No se puede abrir el archivo plantilla " + cOrigen + cFile)
        oWord:Quit()
        Return NIL
    END

    oWord:Visible:=.T.
    oDoc:Select()
    oSel = oWord:Selection

    // Crear Matriz de reemplazos
    aArrReplace := { { "[nombrepaciente]", AllTrim(Nom1) } ,;
                     { "[rut]"           , AllTrim(rut1) } ,;
                     { "[naciona]"       , AllTrim(naci1) } }

    For n:=1 to Len(aArrReplace)
        Reemplaza_Text_F2( oSel, aArrReplace[n][1], aArrReplace[n][2] )
    Next n

    oActiveDoc := oWord:Get("ActiveDocument")
    oActiveDoc:SaveAs(cDestino + cSave)

    oActiveDoc:PrintOut()

   * oWord:Documents:Close()
   * oWord:Quit()

    SysRefresh()
Return nil

//---------------------------------------------------//
Static Function Reemplaza_Text_F2( oSel, cSrc, cRpl)
    Local wdCollapseEnd:=0
    LOCAL oRng := oSel:Document:Content

    IF AT( cSrc, oRng:Text ) = 0
        RETURN .F.
    ENDIF

    WHILE oRng:Find:Execute( cSrc )
        oRng:Text = cRpl
        oRng:Collapse( wdCollapseEnd )
    ENDDO

RETURN .T.