FiveTech Software tech support forums

... xHarbour. Below is from an Bablefish translated message on the newgroup. ------------------------------------ We created the document IN MEMORY! oDoc: = TXmlDocument():New() We added different nodes: oDoc:oRoot:AddBelow(TxmlNode():New(HBXML_TYPE_PI, 'xml', ' version="1.0" encoding="iso-8859-1" ...

Ciao, ho gia' postato questo messaggio (per errore prima su english), Dopo ore e ore di lavoro, riprendendo alcuni esempi dal forum, sono riuscito a completare un programmino che usa Word da Harbour. L'ho provato con word 97 e tutto va bene, ma quando ho provato ad usarlo con Word 2002........cribbb...

Simply it stops at this istruction:
_oDoc = _oWord:Documents:Open( _cfile)

it does not show me nothing, and the dialog box became gray.

Hi

Hi, After many hours for work i have modified an example to use word documents with harbour. I tested it on my pc with Word 97 edition....and all is ok !! But,but i tried to use it on a pc with Word 2002 and it crasced ! It crached at the istruction: _oWord :=TOleAuto():New( "Word.Application" ) &am...

... reperire tutti gli altri metodi e/funzioni di word ? da dove escono fuori queste sottoelencate funzioni di Word: ********************************* oDoc:Range:InsertAfter( "Prova") oDoc:SaveAs( "c:\prova.doc" ) oTable = oDoc:Tables:Add( oWord:Selection:Range,22, 22) oTable:Cell( 1, 1 ):Range:InsertAfter( ...

... a routine (per Enrico) to convert a .DOC file to a text file (.TXT) as follows: ------- LOCAL oWord := CREATEOBJECT( "Word.Application" ) LOCAL oDoc := oWord:Documents:Open( "e:\xharbour\test.doc" ) oDoc:SaveAs( "e:\MyDir\NewDocument.txt", wdFormatDOSText ) oWord:Quit() ------ Works great. I ...

No parece necesario que le envies ese mensaje.

Deja comentada la línea oDoc:End()

... => TMDIFRAME:ACTIVATE(0) Called from: nyswin.prg => MAIN(68) la fuente es : oWord:=TOleAuto():New( "Word.Application" ) cPlantilla := (fic1) oDoc :=oWord:Documents:Open(cPlantilla) // abre el doc modelo cViejo := "[EJER1]" cCampo := (ejer1) reemplace2 () ..... cViejo := "[NOMBRE3]" cCampo ...

... Consulta_Empresa( oNodo, cFile ) Local oIter, oNodeChild , oNode, oIterDia, oNodeDia, oNodeDet Local oNodeHab Local nCodigo , cNombre Local oDoc, oRes, oNode_Empresa, oUnidad, oDbf Local cPath, cFileName If !open( "AGENCIAS" ) Error_Msg( cFile, "NO SE PUDO ABRIR AGENCIAS", "CONSULTA_EMPRESA" ...

... agregar un BMP en el tope y otro en el pie de pagina. Alguien me podria indicar como se hace ?, Gracias anticipadas. FUNCTION MAIN() LOCAL oWord, oDoc, oTexto, cNombre := "c:\prueba" oWord := TOleAuto():New( "Word.Application" ) oWord:Documents:Add() oTexto := oWord:Selection() oTexto:Text := ...

... es la siguiente: /////////////////////////////////////////////////////////////////////////// oWord:=CREATEOBJECT( "Word.Application" ) oDoc:oWord:Documents:ADD() // le pide una de las variables al usuario IF (MSJMEMO ( RTRIM(moderefe->VIEJO), @cNuevo) ...... ELSE // si corta el proceso ...

... su quel TAB per inserire una scritta . Volevo chiederti se tu sai come fare. MAurizio #include "fivewin.ch" Function MAin() LOCAL oWord, oDoc, oParagraphFormat , oTabstop oWord = CREATEOBJECT( "Word.Application" ) oDoc = oWord:Documents:Add() oParagraphFormat := oDoc:Get( 'ParagraphFormat') ...

... : rror description: Error BASE/1004 Class: 'NIL' has no exported method: CELL Uso FW27 con xHArbour Grazie per il tuo aiuto MAurizio LOCAL oWord, oDoc, oTable oWord = CREATEOBJECT( "Word.Application" ) oDoc = oWord:Documents:Add() oTable = oDoc:Tables:Add( oWord:Selection:Range, 3, 5 ) oTable:Cell( ...

... quiero que al reescribir la variable, lo haga con un color distinto al actual del documento. He puesto lo siguiente, pero me da problemas: oDoc:Invoke('Color', 255) ¿Alguna idea para solucionarlo? Manuel Aqui te dejo el código fuente del método que yo uso en la Clase TWord que hace lo mismo ...

... quiero que al reescribir la variable, lo haga con un color distinto al actual del documento. He puesto lo siguiente, pero me da problemas: oDoc:Invoke('Color', 255) ¿Alguna idea para solucionarlo?