Spell
Posted: Tue Dec 20, 2005 1:18 pm
Bellow is a working sample in VB. Can anyone tell me what iam doing wrong with fivewin?
The program crasses at runtime with the error:
"Error description: Error Word.Basic/3 DISP_E_MEMBERNOTFOUND: INSERT"
VB:
Dim oWDBasic As Object
Set oWDBasic = CreateObject("Word.Basic")
oWDBasic.filenew
oWDBasic.Insert "testdsf"
oWDBasic.ToolsSpelling
oWDBasic.EditSelectAll
MsgBox oWDBasic.Selection()
oWDBasic.FileCloseAll 2
oWDBasic.AppClose
FIVEWIN
#include "fivewin.ch"
#DEFINE TRUE .T.
#DEFINE FALSE .F.
function main(strText)
local oWDBasic
default strText:="test ing re"
oWDBasic:=createobject("Word.Basic")
oWDBasic:filenew()
oWDBasic:Insert(strText)
oWDBasic:ToolsSpelling()
oWDBasic:EditSelectAll()
msginfo(oWDBasic:Selection())
oWDBasic:FileCloseAll(2)
oWDBasic:AppClose()
oWDBasic:=nil
return ""
The program crasses at runtime with the error:
"Error description: Error Word.Basic/3 DISP_E_MEMBERNOTFOUND: INSERT"
VB:
Dim oWDBasic As Object
Set oWDBasic = CreateObject("Word.Basic")
oWDBasic.filenew
oWDBasic.Insert "testdsf"
oWDBasic.ToolsSpelling
oWDBasic.EditSelectAll
MsgBox oWDBasic.Selection()
oWDBasic.FileCloseAll 2
oWDBasic.AppClose
FIVEWIN
#include "fivewin.ch"
#DEFINE TRUE .T.
#DEFINE FALSE .F.
function main(strText)
local oWDBasic
default strText:="test ing re"
oWDBasic:=createobject("Word.Basic")
oWDBasic:filenew()
oWDBasic:Insert(strText)
oWDBasic:ToolsSpelling()
oWDBasic:EditSelectAll()
msginfo(oWDBasic:Selection())
oWDBasic:FileCloseAll(2)
oWDBasic:AppClose()
oWDBasic:=nil
return ""