Vikthor, por favor meu amigo... Estou precisando muito fazer funcionar a TWORD no meu sistema...
Amigo, eu utilizo FWH2.5 + XHARBOUR 99.50 + BCC5.5.1
Com estas versões vou ter algum problema em compilar a TWORD?
A necessidade de anexar alguma LIB especial para a TWORD?
Antonio, Vikthor, muito obrigado por me responder...
Antonio, respondendo a sua pergunta... Eu nunca consegui fazer funcionar está comunicação com o WORD!... Tenho varias dúvidas:
1) Tenho que adicionar alguma LIB para que funcione ?
2) Eu anexei ao sistema a TWORDHB está certo? ou devo usar a TWORD?
Vikthor, por favor amigo...me ajude!!!
Estou precisando muito!!!
AOKISANTOS
PARANÁ - BRAZIL
Vikthor:
na TWORDHB o método NEW estava assim:
METHOD NEW() CLASS TWord
::lWord := .T.
IFDEF XHARBOUR
TRY
::oWord := GetActiveObject( "Word.Application" )
CATCH
TRY
::oWord := CreateObject( "Word.Application" )
CATCH
Alert( "ERROR! Word no está instaldo en esta PC.")
::lWord := .F.
END
END
ELSE
::oWord := TOleAuto():New("Word.Application")
IF ::oWord:hObj == 0
Alert( "ERROR! Word no está instaldo en esta PC.")
::lWord := .F.
ENDIF
ENDIF
RETURN( Self )
Então, ai mudei para ficar igual ao seu:
METHOD NEW() CLASS TWord
::lWord := .T.
TRY
::oWord := GetActiveObject( "Word.Application" )
CATCH
TRY
::oWord := CreateObject( "Word.Application" )
CATCH
Alert( "ERROR! Word no está instaldo en esta PC. [" + Ole2TxtError()+ "]" )
::lWord := .F.
END
END
RETURN( Self )
MAIS MESMO ASSIM, CONTINUA A ME DAR O ERRO:
Application
===========
Path and name: C:\XCARCERE\INQ\INQUERITO.EXE (32 bits)
Size: 2,324,992 bytes
Time from start: 0 hours 0 mins 30 secs
Error occurred at: 07/09/2006, 19:17:26
Error description: Error Word.Application/1829 Unknown error: VISIBLE
Args:
Stack Calls
Called from TOLEAUTO:VISIBLE(0)
Called from (b)TWORD(140)
Called from TWORD:ISVISIBLE(0)
Called from CONTRATOWORD(27)
Called from PORDEUS(17)
