hur.cn - 华软网

 热门搜索

100分,请PB+word真正高手解决问题.

  作者:未知    来源:网络    更新时间:2018/6/13
我要将数据库中blob型字段的值显示在Word中,这blob型字段中也是存着Word文挡.

SetNull(blb_tmp) 
 
SELECTBLOB words INTO :blb_tmp  
FROM T_1 
WHERE  id = 123;

constant  long wdCell=12
OLEObject ole_object

SetPointer(HourGlass!)
ole_object=create oleobject
if ole_object.connecttonewobject("word.application")<>0 then 
SetPointer(Arrow!)
messagebox("OLE错误","Word无法连接。",stopsign!)
return
end if 

ole_object.visible=false
ole_object.documents.add("E:\WORD\kjjbj2004_pxh1.dot",false,0)

 

/////blb_tmp
ole_object.selection.goto(true,0,0,"xmnr")
////==========================================下面这句话不通过啊
ole_object.selection.paste( blb_tmp )



ole_object.visible=true  
SetPointer(Arrow!)
dw_1.setredraw(true)
Ole_Object.DisConnectObject()
Destroy Ole_Object

------华软网友回答------
学习ing

dw_1.setredraw(false)
.................
dw_1.setredraw(true)
------华软网友回复------
参考WORK帮助
常量
wdGoToBookmark  -1 
wdGoToComment  6 
wdGoToEndnote  5 
wdGoToEquation  10 
wdGoToField  7 
wdGoToFootnote  4 
wdGoToGrammaticalError  14 
wdGoToGraphic  8 
wdGoToHeading  11 
wdGoToLine  3 
wdGoToObject  9 
wdGoToPage  1 
wdGoToPercent  12 
wdGoToProofreadingError  15 
wdGoToSection  0 
wdGoToSpellingError  13 
wdGoToTable  2 


------华软网友回复------
expression.GoTo(What, Which, Count, Name) 
what 就是上面的常量之一,你的代码中用了true,所以引起错误.

which: 是下面常量之一
wdGoToAbsolute  1 
wdGoToFirst  1 
wdGoToLast  -1 
wdGoToNext  2 
wdGoToPrevious  3 
wdGoToRelative  2 

count: 行数(可选)
例子:
Selection.GoTo (wdGoToLine, wdGoToAbsolute,4) 定位到第4行

Name:就是书签名(可选)
Selection.GoTo (wdGoToField,"书签1")





------华软网友回复------
楼上能说详细点么,最好给个例子
------华软网友回复------
已经很详细了吧.  

关键是你想用goto语句设置输入点在哪个地方,是方档的开头,结尾,还是第几行?你都没说清楚...
------华软网友回复------
感觉上应该将blb_tmp 变量转换成字符串,可能是是加上string(blb_tmp )这个我不确定。因为你的操作是粘贴blb_tmp ,如果blb_tmp 不是字符串类型又怎么粘贴呢?不过就算blb_tmp 转换为字符串后粘贴到了WORD里,那也是一大堆乱码,和你用文本方式打开WORD文件看到的一样。
    我只是说了一个思路啊,不一定对,你实验一下。      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。