FiveTech Software tech support forums

Bayron wrote:Nice Sample... Thanks Anser and Uwe for Sharing...

Can this table be saved to file without oppening MicroSoft Word????

Can it also be printed programatically???? With or without oppening MS Word???

Yes. Without making word visible
oWord:Visible:=.F.

Regards
Anser

Thanks Anserkk For add a picture Emg tell me to insert oWord:ActiveDocument:Shapes:AddPicture( "c:\logoditta.bmp", .T., .T., 1, 1, 150, 80) but this is not transparent , how I can make to insert a big picture transparent ? I'm trying to create ...

... of the word page ( As per the WordTable.Prg). Add the following lines after the word finished the loop creating the Table and totals and before oWord:Visible:=.T. #DEFINE wdParagraph             4// Now write some text on the left hand side of the tableoRange:=oWord:ActiveDocument:Range()oRange:Collapse(wdCollapseStart)WITH ...

I have a Word document oWord:=CREATEOBJECT("Word.Application") oWord:Documents:Add() oRange:=oWord:ActiveDocument:Range() and I insert a small table oTable_Cliente:=oWord:ActiveDocument:Tables:Add(oRange,1,1) WITH OBJECT oTable_Cliente ...

Hola, yo despues de reemplazar los [campo] con la informacion correspondiente, al final hago un oWord:Undo(50), por decir un numero de Deshacer y con eso te evitarias el paso que haces...

Saludos

LF

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 ...

... 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 ...

Incidentally FWH provides builtin function WinWordObj().

We can write

oWord := WinWordObj()
if oWord == nil
// error
else
// proceed with using oWord
endif

Similar functions in FWH are ExcelObj() and SunCalcObj()

I have not tried Word MailMerge with an option to Wait for input from the user during the Merge Process. From the Microsoft Help topic regarding oWord:ActiveDocument:MailMerge:Execute( .T. ) // Pause:=True: " True for Microsoft Word pause and display a troubleshooting dialog box if a mail ...

... wait for the user - it just sends it. How can I make it wait for the user? I thought it has to so with this line, but .T. or .F. behaves the same: oWord:ActiveDocument:MailMerge:Execute( .T. ) // Pause:=True            oWord := CREATEOBJECT( "Word.Application" ...

Con la clase TWord fusiono datos de un fichero .dbf con un fichero .doc de esta forma: ............ oWord:Replace("[NOMBRE]",cNombre) oWord:Replace("[DOMICILIO]",cDomicilio) ............ ¿Existe la posibilidad de hacer lo mismo con un fichero RTF? Pues ...

...  COPY FILE C:\LOC\CTOLOCBK.DOC TO C:\LOC\CTOLOC.DOC    // usando o Backup...   cARQ="C:\LOC\CTOLOC.DOC"   TRY      oWord := GetActiveObject(  "Word.Application" )   CATCH      TRY         oWord := CreateObject( "Word.Application" ) ...

...  COPY FILE C:\LOC\CTOLOCBK.DOC TO C:\LOC\CTOLOC.DOC    // usando o Backup...   cARQ="C:\LOC\CTOLOC.DOC"   TRY      oWord := GetActiveObject(  "Word.Application" )   CATCH      TRY         oWord := CreateObject( "Word.Application" ) ...

... abrir con ole el archivo de word, luego usando el metodo replace realizabamos el reemplazo de la palabra clave por el dato del cliente por ejemplo oWord:Replace( "[NOMCLI]", cNombreCliente ) luego usando el mismo OLE imprimiamos el documento, se guardaba con un nombre diferente, y dejabamos ...

... todo y llevo días navegando por internet pero no encuentro solución. A ver si alguien es capaz de ayudarme. Resulta que créo un documento Word con oWord:Documents:Add(), com siempre, y Word, por defecto, lo llama "Documento1". Con SaveAs( ... ) se puede guardar con un nombre concreto. ...