Automatizacion desde VFP

Estimado grupo:

Estoy intentando hacer una automatizacion de WORD, en la cual ingreso
variables de word desde mi aplicacion, y las actualizo. Esta actualizacion
me funciona perfectamente siempre y cuando, la variable no esté contenida
en
el encabezado. En este último caso no encuentro la forma de recargarla. Si
alguien me pudiera ayudar

oap=createobject("word.application")

oap.Documents.Add()

oap.visible=.t.

oap.Documents(1).Variables.add("<<sgsegto_dcdocs_dcid>>","prueba")

&& Y con esto recargo

oap.Documents(1).update && Esto siempre funciona excepto con el Hader y
el
Foot del documento



Desde ya muy agradecido

Martin R Sanchez Arnoletto

Hola Martin,

I don't speak Spanish, but maybe this is what you need:

oAp = CreateObject("Word.Application")
oAp.Visible = .T.
oAp.Documents.Add()
oAp.Documents(1).Variables.Add("<<sgsegto_dcdocs_dcid>>","prueba")
#Define wdPrimaryHeaderStory 7
#Define wdPrimaryFooterStory 9
oAp.Documents(1).StoryRanges(wdPrimaryHeaderStory).Fields.Update()
oAp.Documents(1).Variables(1).Value = "This is the footer"
oAp.Documents(1).StoryRanges(wdPrimaryFooterStory).Fields.Update()

Cindy Winegarden MCSD, Microsoft Visual Foxpro MVP
www.cindywinegarden.com
Blog: http://spaces.msn.com/members/cindywinegarden


"MPOLO S.L. - Departamento Calidad" wrote in message
news:
> Estimado grupo:
>
> Estoy intentando hacer una automatizacion de WORD, en la cual ingreso
> variables de word desde mi aplicacion, y las actualizo. Esta

> me funciona perfectamente siempre y cuando, la variable no esté

> en
> el encabezado. En este último caso no encuentro la forma de recargarla.

> alguien me pudiera ayudar
>
> oap=createobject("word.application")
>
> oap.Documents.Add()
>
> oap.visible=.t.
>
> oap.Documents(1).Variables.add("<<sgsegto_dcdocs_dcid>>","prueba")
>
> && Y con esto recargo
>
> oap.Documents(1).update && Esto siempre funciona excepto con el Hader y
> el
> Foot del documento
>
>
>
> Desde ya muy agradecido
>
> Martin R Sanchez Arnoletto
>
>
>
>
>
>
>
>