Estoy con un error que no se solucionar y es el siguiente:
Yo tengo este código para crear un documento Word con ciertos valores de una base de datos:
Code: Select all | Expand
FUNCTION gestcua411()
wdFormatDocument97 := 0
replace empresa with va001
replace nif with va002
replace domicilio with va003
replace poblacion with va004
replace provincia with va005
replace ejercicio with va006
replace dia with va007
replace mes with va008
replace ano with va009
replace cargo with va010
replace numeuno with va011
replace textuno with va012
replace numedos with va013
replace textdos with va014
replace numetres with va015
replace texttres with va016
replace numecuatro with va017
replace textcuatro with va018
replace numecinco with va019
replace textcinco with va020
dbunlock()
oWord:=TOleAuto():New( "Word.Application" )
cPlantilla := (fic1)
oDoc :=oWord:Documents:Open(cPlantilla) // abre el doc modelo
cViejo := "[EMPRESA]"
cCampo := (empresa)
reemplace2 ()
cViejo := "[NIF]"
cCampo := (nif)
reemplace2 ()
cViejo := "[POBLACION]"
cCampo := (poblacion)
reemplace2 ()
cViejo := "[PROVINCIA]"
cCampo := (provincia)
reemplace2 ()
cViejo := "[DOMICILIO]"
cCampo := (domicilio)
reemplace2 ()
cViejo := "[EJERCICIO]"
cCampo := (ejercicio)
reemplace2 ()
cViejo := "[DIA]"
cCampo := (dia)
reemplace2 ()
cViejo := "[MES]"
cCampo := (mes)
reemplace2 ()
cViejo := "[ANO]"
cCampo := (ano)
reemplace2 ()
cViejo := "[CARGO]"
cCampo := (cargo)
reemplace2 ()
cViejo := "[NUMEUNO]"
cCampo := (numeuno)
reemplace2 ()
cViejo := "[TEXTUNO]"
cCampo := (textuno)
reemplace2 ()
cViejo := "[NUMEDOS]"
cCampo := (numedos)
reemplace2 ()
cViejo := "[TEXTDOS]"
cCampo := (textdos)
reemplace2 ()
cViejo := "[NUMETRES]"
cCampo := (numetres)
reemplace2 ()
cViejo := "[TEXTTRES]"
cCampo := (texttres)
reemplace2 ()
cViejo := "[NUMECUATRO]"
cCampo := (numecuatro)
reemplace2 ()
cViejo := "[TEXTCUATRO]"
cCampo := (textcuatro)
reemplace2 ()
cViejo := "[NUMECINCO]"
cCampo := (numecinco)
reemplace2 ()
cViejo := "[TEXTCINCO]"
cCampo := (textcinco)
reemplace2 ()
oDoc := oWord:Get("ActiveDocument") // object (documento activo)
oDoc:Invoke( "SaveAs", cFich ) // graba fichero
oDoc:Invoke('Close',0) // cierra fichero
oDoc:=NIL
oWord:Quit()
oWord:=NIL
gestcua421(2)
RETURN (.T.)
Siempre había funcionado pero ahora se queda bloqueado en la línea "oDoc:Invoke( "SaveAs", cFich ) // graba fichero" y no continua. Desde entonces creo que solo he cambiado del BCC582 al BCC7.
Alguna sugerencia la versión.
Un saludo
Carlos
