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.
