Hi Toninho,
Il 26/03/2009 13.41, toni...@fwi ha scritto:
But with a more extensive test here I found that this code doesn´t
work:
---cut---
procedure testolenew()
local oWord, oText
begin sequence
oWord = GetActiveObject( "Word.Application" )
recover
begin sequence
oWord = CreateObject( "Word.Application" )
recover
alert( "ERROR! Word not avialable." )
return
end sequence
end sequence
oWord:Documents:Add()
oText = oWord:Selection()
oText:Text = "OLE from Harbour" + hb_OSNewLine()
oText:Font:Name = "Arial"
oText:Font:Size = 36
oText:Font:Bold = .T.
oWord:Visible = .T.
oWord:WindowState = 1
return
---cut---
It fails in GetActiveObject(). I tried to see what is wrong in
GetActiveObject() but all seems to be fine. Mindaugas can you help
please ?
do you use MSVC ? If yes, do you have tested same code after removing
-TP flag in config/msvc.cf and rebuild entire SVN ?
Best regards,
Francesco
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
