WORD--PARTE

[juan carlos bellucci]

Estimado anserkk desde ya muchas gracias por la ayuda.

Estoy en un dilema

la instrucción que me envio para grabar y leer funciona pero cuando leo un documento
ejemplo

Nota01.doc el word lo hace pero solo lectura.

yo tengo una plantilla de la cual hago una copia cada vez que solicitan una nueva nota

el usuario debe escribis la nota y luego grabarla sin que word le pida donde guardarla.


No encuentro algun ejemplo en samples de fivewin y entre en la wiki y tampoco vi nada....


Si usted tiene algun ejemplo desde ya muchas gracias nuevamente.

[anserkk]

I do not know, whether I understood your requirement properly. I use Google translator to read, but sometimes the translator fails to convert properly

Did you mean that you want to open a word document as read only

OR

You have a template file. For a transaction you need to open the template file and then fill some data via prg code to the word file and then save the word file as different document.

Please let me know.
Regards

Anser

[juan carlos bellucci]

Hola Buenos dias.


1.- tengo una plantilla pre definida como modelo de notas.

2.- debo cada crear una nota y asignarle un numero desde un software que aun no consigo terminar.

3.- para realizarlo lo que hago es copio la nota ejemplo.doc en nota01.doc , nota02.doc asi sucesivamente.

4.- cuando quiero abrir la nota02 se abre en modo solo lectura y no me permite realizar correcciones.

------------------------------------------------------------------------------------------------------------------------------
si tienes aulgun ejemplo de como abrir, leer, escribirla y ademas asignarle un numero en el final de la nota

seria una gran ayuda....

desde argentina nuevamente muchas gracias.

[anserkk]

Code: Select all  Expand view

#Include "FiveWin.ch"
//---------------------------//
Function Main()

    Local oWord , cTemplate:="\YourFolderName\YourTemplateFileName.Doc"
    Local cSaveAsFile := "D:\Nota Nro 1.doc"

    oWord := CreateObject( "Word.Application" )

    oWord:Documents:Open(cTemplate)

   // Make the Necessary changes in the word file and then save this file with a different name

    oWord:ActiveDocument:SaveAs(cSaveAsFile)
    oWord:ActiveDocument:Close()
    oWord:Quit()

Return nil

Regards
Anser

[juan carlos bellucci]

Gracias Amigo.

Ya puedes contar con un amigo por buenos aires argentina.
ha sido de gran ayuda tus ejemplos.

eternamente agradecido. juanca252@yahoo.com.ar a tus ordenes para lo que gustes.

[anserkk]

Gracias Amigo.

Ya puedes contar con un amigo por buenos aires argentina.
ha sido de gran ayuda tus ejemplos.

eternamente agradecido. juanca252@yahoo.com.ar a tus ordenes para lo que gustes.

Thank you. Your friend from India

Regards
Anser