Word

[juan carlos bellucci]

Buenassss, ya estoy resultando pesado pero tengo un problema y no estoy haciendo las cosas bien.

Debo realizar un programa de Notas, las cuales se escriben con microsoft office 2007 Word

el tema es asi yo debo generar el encabezado de la nota y ponerle un numero Hasta ahi todo bien .

Hago los siguiente :

FUNCTION NuevaNota( nNota )

LOCAL oWord , oText
Local cTitu := "Nota Nro "+Alltrim(Str(nNota))

oWord := CreateObject( "Word.Application" )

oWord:Documents:Add()

oText := oWord:Selection()

oText:Font:Size := 16

oText:Invoke( "TypeText", "BLABLABLA" + CRLF + CRLF )

oText:Font:Size := 8

oText:Invoke( "TypeText", cTitu + CRLF+ CRLF )

///////////////////////////////////////////////////////////////////////////
// En esta linea me da error y no puedo grabarla
// si uso word directamente funciona pero debo grabarla antes ese es mi tema.
///////////////////////////////////////////////////////////////////////////
oWord:saveAs( cTitu , 0 )



return nil


Si no la grabo cuando pulsan salvar les pide que se le asigne nombre y las envia a una carpeta en cambio si yo la grabo quedan en la carpeta predeterminada.


A ver mi tema es poder crear una nota y grabarla para luego si con WinExe(" WORD Nota") por ejemplo.


Desde ya como siempre muchas gracias.

[anserkk]

Code: Select all  Expand view

#Include "FiveWin.ch"

//---------------------------//
Function Main()

LOCAL oWord , oText,oDoc
Local cTitu := "D:\Nota Nro 1.doc"

oWord := CreateObject( "Word.Application" )

oWord:Documents:Add()

oText := oWord:Selection()

oText:Font:Size := 16

oText:Invoke( "TypeText", "BLABLABLA" + CRLF + CRLF )

oText:Font:Size := 8

oText:Invoke( "TypeText", cTitu + CRLF+ CRLF )

oDoc:=oWord:Get("ActiveDocument")
oDoc:saveAs( cTitu )

Return nil

[juan carlos bellucci]

Gracias amigo.....

te hago una pregunta mas como hago para cargar una plantilla predeterminada.


a ver yo use oText := oWord:Load("Plantilla.doc") me da error
oText := oWord:Get("Palntilla.doc") tambien me da error


en plantilla.doc ya tengo definido encabezados y pie de la empresa.

ellos quieren seguir las notas


creo que mas que las gracias te voy a tener que invitar una semana en casa con todo pago ja ja

[anserkk]

Can u please explain little more

Template filename extension is .dot
You can open the file similar way that you open .doc file

Code: Select all  Expand view

cDocument:="\YourFolderName\YourFileName.Doc"  
oWord = CreateObject("Word.Application")

oWord:Documents:Open(cDocument)
oDoc = oWord:ActiveDocument

Are you trying to extract the text contents from the word doc file ?

Regards

Anser