RE:ayuda con el sig error
ok, mira lo que estoy tratando d hacer es combinar correspondencia desde
vfoxpro, la verdad es la primera vez que lo hago, y me estoy apoyando de un libro que se llama "microsoft office automation with visual fox pro", pues ahi viene ejemplos pero no me sale me manda ese error, y la verdad no tengo idea, aqui te mando mi codigo que estoy utilizando, please si me puedes ayudar
#DEFINE CR CHR(13)
#DEFINE wdWord 2
#DEFINE wdCollapseEnd 0
#DEFINE CR CHR(13)
#DEFINE TAB CHR(9)
#DEFINE wdHeaderFooterPrimary 1
#DEFINE wdGray25 16
#DEFINE wdAlignParagraphCenter 1
#DEFINE wdCollapseEnd 0
#DEFINE wdParagraph 4
#DEFINE wdLineStyleDouble 7
#DEFINE wdUserTemplatesPath 2
#DEFINE wdGoToBookmark -1
LOCAL oWord, oDocument, oRange, oBorderRange, cTemplatePath
*LOCAL oWord,oDocument
oWord=CREATEOBJECT("Word.Application")
oWord.Documents.open("C:\Documents and Settings\Arkein\Escritorio\carta.doc")
oWord.Application.Visible=.T.
OPEN DATABASE ("C:\Documents and Settings\Arkein\Escritorio\RESPALDO INFO 161107\PAISA v1.0\paisa.dbc")
SELECT clientes.nombre;
from clientes;
into cursor prueba
DO CreateHeaderSource WITH oDocument, DBF("prueba"),;
ADDBS(SYS(2023))+"carta.doc"
USE IN prueba
WITH oDocument.styles["Normal"].Font
.Name = "Times New Roman"
.size = 12
ENDWITH
&&Agregar cabezera
WITH oDocument.Sections[1].Headers[wdHeaderFooterPrimary]
oRange=.Range()
WITH oRange
.text="Titulo"
.style=oDocument.Styles["Heading 1"]
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Shading.BackgroundPatternColorIndex = wdGray25
ENDWITH
ENDWITH
oRange = oDocument.Range(0,0)
WITH oRange
.Style = oDocument.Styles[ "Heading 2" ]
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.InsertAfter( "Product Information" + CR + CR )
.Collapse( wdCollapseEnd )
.Style = oDocument.Styles[ "Heading 3" ]
.InsertAfter( "Categoria del Producto: " )
.Collapse( wdCollapseEnd )
oDocument.Bookmarks.Add( "Nombre", oRange )
.InsertAfter( CR )
.Expand( wdParagraph )
.Borders.OutsideLineStyle = wdLineStyleDouble
ENDWITH
saludos, DTB