PROBLEMAS CON TWORD

Post Reply
cgomez
Posts: 16
Joined: Mon Feb 18, 2008 6:27 pm

PROBLEMAS CON TWORD

Post by cgomez »

Buenas Tardes

Estoy utilizando la clase TWORD para rellenar un documento word, pero tengo un pequeño problema, este documento tiene dos paginas, pues las variables q me tiene que rellenar en la segunda pagina no las rellena, sin embargo si cojo esas variables y las pongo en la primera pagina del documento word si me las rellena,me puede decir alguien por qué sucede esto? os pongo el codigo de la funcion q me rellena el documento word:

static function Impr_Certificado(ctbfcer,ctbfpac)
local oWord
local fichero:=""

local menfermedad:=""
local mobserv:=""
local cmedida:=""

menfermedad:=alltrim((ctbfcer)->enferm)
mobserv:=alltrim((ctbfcer)->observ)
cmedida:=alltrim((ctbfcer)->talla)

if valtype(oWord) = 'O'
oWord:End()
end if
oWord := TWord():New()

do case
case (ctbfcer)->tipocer ="Seguridad Privada"
fichero:=cdi:vdir_apli + "\docs\seguridadprivada.doc"
case (ctbfcer)->tipocer ="Conductores"
fichero:=cdi:vdir_apli + "\docs\conductores.doc"
case (ctbfcer)->tipocer = "Cazadores"
fichero:=cdi:vdir_apli + "\docs\cazadores.doc"
case (ctbfcer)->tipocer = "Animales Peligrosos"
fichero:=cdi:vdir_apli + "\docs\cazadores.doc"
end case

oWord:OpenDoc(fichero)
oWord:Visualizar()
oword:replace("<NOMBRE>" ,alltrim((ctbfcer)->nompac))
oword:replace("<APELLIDOS>" ,alltrim((ctbfcer)->apepac))
oword:replace("<DNI>" ,alltrim((ctbfcer)->dnipac))
oword:replace("<FNAC>" ,dtoc((ctbfcer)->fnacpac))
oword:replace("<OBTENCION>" ,alltrim((ctbfcer)->aptitud))
oword:replace("<GRUPO>" ,alltrim((ctbfcer)->clasecer))
oword:replace("<DICTAMEN>" ,alltrim((ctbfcer)->dictamedi))
oword:replace("<DICTAMEN>" ,alltrim((ctbfcer)->dictapsic))
oword:replace("<RDO>" ,alltrim((ctbfcer)->resultado))
oword:replace("<OBTENER>" ,alltrim((ctbfcer)->obtreno))
oword:replace("<CLASE>" ,alltrim((ctbfcer)->ordinextr))
oword:replace("<DIA>" ,day((ctbfcer)->fecha))
oword:replace("<MES>" ,DimeMes((ctbfcer)->fecha))
oword:replace("<AÑO>" ,str(year((ctbfcer)->fecha),4))
oword:replace("<MEDIDA>" ,cmedida)
oword:replace("<ENFERMEDAD>" ,menfermedad)
oword:replace("<OBSERV>" ,mobserv)

if (ctbfpac)->_=1
oword:replace("<_>" ,"M")
else
oword:replace("<_>" ,"V")
end if
oword:replace("<ECPAC>" ,alltrim((ctbfpac)->ecpac))
oword:replace("<EDAD>" ,alltrim((ctbfpac)->edadpac))
oword:replace("<LNACPAC>" ,alltrim((ctbfpac)->lnacpac))
oword:replace("<PRONACPAC>" ,alltrim((ctbfpac)->pronacpac))
oword:replace("<POBPAC>" ,alltrim((ctbfpac)->pobpac))
oword:replace("<PROPAC>" ,alltrim((ctbfpac)->propac))
oword:replace("<DIRPAC>" ,alltrim((ctbfpac)->dirpac))
oword:replace("<CPPAC>" ,alltrim((ctbfpac)->cppac))
oword:replace("<PROFPAC>" ,alltrim((ctbfpac)->profpac))

return

las variables q no me rellena son cmedida,menfermedad,mobserv

gracias y un saludo
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Re: PROBLEMAS CON TWORD

Post by Ramon Paredes »

Hola,

Debes usar el metodo endpage y new de la clase para indicarle donde termina una pagina y donde comienza la otra

Saludes desde Managua Nicaragua,

Ramon Paredes
... Desde la Tierra de lagos y Volcanes......
cgomez
Posts: 16
Joined: Mon Feb 18, 2008 6:27 pm

Re: PROBLEMAS CON TWORD

Post by cgomez »

Buenos dias Ramon

He utilizado endpage y new y sigue sin hacermelo, he probado con endpage y startpage y tampoco :?
como puedo hacerlo?

gracias y un saludo

Carmen Gomez
Post Reply