主要代码
string ls_filename, ls_path
integer li_value
oleobject ole_word
long ll_cnt
ole_word = create oleobject
li_value = ole_word.connecttonewobject("word.application")
if li_value <> 0 then
messagebox("info", "连接word失败，请检查")
return -1
end if
if GetFileOpenName("选择文件", ls_filename, ls_path, "Word Files (*.doc), *.doc, All Files(*.*), *.*") <> 1 then
ole_word.quit()
ole_word.disconnectobject()
destroy ole_word
return 1
end if
if len(trim(ls_filename)) <= 0 then
return -1
else
ole_word.Documents.open(ls_filename)
ll_cnt = ole_word.ActiveDocument.Content.End
messagebox('Word total:', ll_cnt)
ole_word.quit()
ole_word.disconnectobject()
destroy ole_word
end if
