Problemas con automatización en Word 2007

[RickDeCastro]

Hola grupo.

Tengo una pequeña aplicación, hecha VFP 9 SP1, que usa la
automatización de Word para crear un documento.
Una de las configuraciones utilizadas es la de agregar numeración a
las páginas y para esto tengo el siguiente código:
*!* Primero creo el objeto Word con..
loWord = CREATEOBJECT('Word.Application')

*!* Hago visibles las operaciones que se están realizando en Word
loWord.visible = .T.

*!* Creo en Word un nuevo documento
loWord.Documents.Add( )

*!* Agrego la numeración de páginas al pié y a la derecha.
loWord.ActiveWindow.ActivePane.View.SeekView = 10 &&
wdSeekCurrentPageFooter
loWord.NormalTemplate.AutoTextEntries("Página X de
Y").Insert(loWord.Selection.Range)
loWord.Selection.ParagraphFormat.Alignment = 2 &&
wdAlignParagraphRight
loWord.ActiveWindow.ActivePane.View.SeekView = 0 &&
wdSeekMainDocument

*... sigue el código correspondiente...

Tengo dos problemas, pero primero lo primero...
Hasta la versión XP del MS-Office todo funcionaba perfectamente.
Ahora, un cliente instaló el Office 2007 y en la segunda línea del
código anterior me salta el siguiente error:

"Código de excepción OLE IDispatch 0 de Microsoft Word: El elemento
del conjunto solicitado no existe."

Si elijo continuar con la ejecución del programa, todo lo demás se
completa pero - por supuesto - el documento se genera sin la
numeración de páginas.

¿Alguien sabe cómo solucionar este asunto?

Agradezco anticipadamente cualquier ayuda al respecto.

---
Saludos automatizables.

Ricardo De Castro Aquino
Asunción - Paraguay

[Allan Raúl Acuña]

Generalmente cuando me da problemas con la automatizacion, lo que hago es crear la macro en Word y luego la traduzco a fox.

Así he solucionado siempre sin problemas.

Si no logras, con gusto lo vemos remoto.

Saludos desde Nicaragua.

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

> Date: Mon, 3 Oct 2011 11:17:07 -0700
> Subject: [vfp] Problemas con automatización en Word 2007
> From: deca...@netvision.com.py
> To: publice...@googlegroups.com