pb通过ole调用word时出错求助

求PB通过OLE来显示WORD文档的方法~

1、不用ole直接用word嵌入到程序窗口中，需要用到几个apiShellExecute函数原型及参数含义如下：
　　ShellExecute(
　　HWND hwnd, //父窗口句柄 （如：NULL，Handle等）
　　LPCSTR lpOperation, //操作类型 （如："open"）*要加英文双引号
　　LPCSTR lpFile, //要进行操作的文件或路径
　　LPCSTR lpParameters, //当lpOperation为“explore”时指定要传递的参数，通常设为NULL
　　LPCSTR lpDirectory, //指定默认目录，通常设为NULL
　　INT nShowCmd //文件打开的方式，以通常方式还是最大化或最小化显示，一般为SW_SHOWNORMAL
　　)
2、用pb中word的函数操作word文档，可以参考olebrowser里面的函数说明，pb里面就可以查看的 来这里看看吧，有点用的，pb嵌入word的http://hi.baidu.com/pbzzfbbs/blog/item/1b8614354efeda3d5ab5f57e.html

通过函数吗？读出来之后要求是只读的
高手快来指教啊
------解决方案--------------------------------------------------------
你的word文档是存放在数据库表中的吗？在窗口中加ole的方式我曾用过，不太理想，要写些东西，并且打开后也不是很理想。
建议你用dw中的ole database blob，这个比较好用。在数据窗口中可以只显示一个类似按钮的东西，用户只要双击它，即可打开已经存放的文档。在数据窗口中配置它也比较直观简单。

1、创建连接到excel应用的ole对象
OleObject ole_excel
ole_excel = create OleObject
If ole_excel.ConnectToNewObject("Excel.Application") > 0 Then
MessageBox('连接到Excel错误','请确认是否已经安装了Excel!',Exclamation!)
Destroy old_excel
Return
End If
2、打开指定的excle文件
ole_excel.Application.Workbooks.Open("excel文件")
3、操作excel单元格
excel单元格有一系列的操作，它们的使用格式一般如下：
ole对象.ActiveWorkBook.Sheets("工作表名").操作对象.动作或属性
读取或赋值工作表1中单元格的格式：
ole_excel.ActiveWorkBook.Sheets("工作表1").cells[1,1].value
合并工作表1中的第ll_rows_buget行的A列到I列的单元格：
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Merge，还有如下一些与合并单元格相类似的动作或属性
.HorizontalAlignment = xlGeneral //单元格的横向对齐方式
.VerticalAlignment = xlBottom //单元格的纵向对齐方式(1、2左，3居中,4右)
.WrapText = True //自动换行
.Orientation = 0
AddIndent = False
ShrinkToFit = False
.MergeCells = False
设置工作表1中的第ll_rows_buget行的A列到I列的单元格四周为实现边框
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(1).LineStyle=1
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(2).LineStyle=1
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(3).LineStyle=1
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(4).LineStyle=1
第ll_rows_buget行从A到I单元格的背景色和字体颜色设置如下：
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Interior.ColorIndex = 48 //背景色为棕黑色
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Font.ColorIndex = 3 //字体颜色为红色
有一点需要注意的是单元格的背景色和字体颜色的属性ColorIndex不能超过56，否则程序崩溃，自动退出。ColorIndex = 0 为白色，ColorIndex = 56 则接近黑色，其他颜色请自行摸索。
4、保存excel文件，退出excel，并销毁ole对象
ole_excel.ActiveWorkBook.save()
ole_excel.Application.Quit()
Destroy ole_excel //注销对象

---

涞水县19786679658： pb通过ole调用word时出错求助 - ？
詹燕洁维： 1、创建连接到excel应用的ole对象 OleObject ole_excel ole_excel = create OleObject If ole_excel.ConnectToNewObject(＂Excel.Application＂) > 0 Then MessageBox('连接到Excel错误','请确认是否已经安装了Excel!',Exclamation!) Destroy old_...

涞水县19786679658： 求PB通过OLE来显示WORD文档的方法？
詹燕洁维： 1、不用ole直接用word嵌入到程序窗口中,需要用到几个api ShellExecute函数原型及参数含义如下: ShellExecute( HWND hwnd, //父窗口句柄 (如:NULL,Handle等) LPCSTR lpOperation, //操作类型 (如:＂open＂)*要加英文双引号 ...

涞水县19786679658： pb怎么通过OLE来显示word文档 - ？
詹燕洁维： 通过函数吗?读出来之后要求是只读的 高手快来指教啊------解决方案-------------------------------------------------------- 你的word文档是存放在数据库表中的吗?在窗口中加ole的方式我曾用过,不太理想,要写些东西,并且打开后也不是很理想.建议你用dw中的ole database blob,这个比较好用.在数据窗口中可以只显示一个类似按钮的东西,用户只要双击它,即可打开已经存放的文档.在数据窗口中配置它也比较直观简单.

涞水县19786679658： 你好.excel vba运行时错误,1004,怎么解决呀? - ？
詹燕洁维： 是VBA代码的BUG,通过调试,找出错误源可以解决.OLEObject与OLE控件本身是有区别的.前者是运行是不可见的,是PB 所采用的一种自动化技术.OLE控件本身必须添加于一...

涞水县19786679658： PB中出错Error:Invalid datawindow row/counm specilfied at line 6 in click eve - ？
詹燕洁维： 在PB运行的时候,窗口中出现请求终止,程序写的有bug,可能的原因是设置或获取数据窗口中单元格内容时,指定的行或列有误. 可能是在click事件里第6行的字段名写错了,或行数越界. 或者是要第6行代码中有用到参数row时,没有排除0 值的情况就会报错了,最好加上这句: if row > 0 then 自己的代码 end if

涞水县19786679658： 请教PB怎么操作PDFView.ocx - ？
詹燕洁维： 楼主你好. 1、在网上下一个pdfview.ocx 进行处理; 2、以IE方式下载打开,这种方式需要本机装有PDF 最近正好在用 ole 打文档,发现这里面名堂蛮多,随便谈几句!就 pb 的 ole 控件类型来说,分为 3 类:olecontrol, olecustomcontrl, ...

涞水县19786679658： 你正在打开改写(overtype)模式,此输入法不支持该模式 - ？
詹燕洁维： 看不太懂你的意思,按一下Insert键试一试.可能就切换为正常模式了.

涞水县19786679658： pb问题 从excel导入出现错误 - ？
詹燕洁维： 主要原因是你用的函数或属性非法,即,EXCEL中没有该函数或属性 另外,如果已经存在EXCEL进程,再次调用打开EXCEL的方法也会导致错误. 不知道你代码是怎么样的,如果要获得更详细帮助那就把代码贴出来.

涞水县19786679658： 在PB里面用OLE控件的时候出现的问题? - ？
詹燕洁维： 你能看到源码么?这个肯定是哪里写了代码类似于 控件.filename 这样的写法,这里说这个filename属性有问题了.

涞水县19786679658： pb插入ole控件点击insert control时pb应用程序自动关闭了是怎么回事 - ？
詹燕洁维： 1.卸载超星阅读器.2. cmd /c for %i in (%windir%\system32\*.ocx) do regsvr32.exe /s %i cmd /c for %i in (%windir%\system32\*.dll) do regsvr32.exe /s %i 在DOS下运行一定能搞定