OLE WORD 非常着急，请高手回答。

[takeiteasy]

我将文档模版保存在数据库中。现在想调出模版，并对标签赋值。
方法一、可视ole空间。
支持ole_object.objectdata = blob_a
但是此方法，我不知道怎么对标签进行赋值
方法二、
ole_object = create oleOjbect
但此方法居然无法将我从数据库中读出的blob放到ole_object中。

[takeiteasy]

另，可视的ole控件中的word文档怎么保存为文件？

[takeiteasy]

难道要实现我的需求，需要都使用么？
着急，所以自己顶先。。。

[aichangfeng]

幫你頂一下，你可以在FAQ中找些相關的資料來參考一下

[iamx]

使用方法一：OLE Control
integer li_count, i
string ls_yourtext = 'text'

loc_word.objectdata = lbl_data
li_count = loc_word.Object.Bookmarks.Count
for i = 1 to li_count
loc_word.object.bookmarks[i].select
loc_word.object.application.selection.typetext(yourtext)
next

loc_word.saveas("c:\tempfile.doc")
loc_word.clear()

给分吧。

[iamx]

方法二、
不可以直接将blob 塞给 Ole object
ole_control.objectdata = blob

myword = create oleobject //下面几行抄自roc996()，略有改动

//启动OLE自动化服务(即Word)，并与之建立连接。

ll_status=myword.connecttonewobject("word.Application")

if ll_status < 0 then

messagebox("错误","不能启动Word!")

else

//新增一个Word文档对象

myword.Application.documents.add()

ole_control.copy()

myword.Application.Selection.Paste

li_count = myword.application.Bookmarks.Count
for i = 1 to li_count
myword.application.bookmarks[i].select
myword.application.selection.typetext(yourtext)
next

myword.application.activedocument.saveas("c:\mytempfile.doc")
myword.application.activedocument.close()
myword.disconnect()
ole_control.clear()

写得比较乱，自己再调试一下。

[fellowcheng]

学习

[youqiong]

hehe

[lzheng2001]

word的help中有详细的VBA编程说明,这种问题查一下帮助一般就能解决

[roc996]

这是别人做的一个程序，希望对你有所帮助。


//声明变量类型为OLEObject

OLEObject myword

long ll_status

//创建一OLEObject

myword=Create oleObject

//启动OLE自动化服务(即Word)，并与之建立连接。

ll_status=myword.connecttonewobject("word.Application")

if ll_status < 0 then

messagebox("错误","不能启动Word!")

else

//新增一个Word文档对象

myword.documents.add("f:\mytemp.doc",false,0)

//通过赋值语句，将字串插入′mybkmark′书签位置

myword.Documents.item(1).Bookmarks.Item("mymark").Range.Text = mle_1.text

//另存为′myreport.doc′文件

myword.documents.item(1).saveas("f:\myreport.doc")

//文档可见
myword.visible=true

myword.disconnectobject()

end if

//消去内存中的OLEObject变量

[takeiteasy]

可是我怎么将我的blob给这个文档呢？

[魔鬼代言人5800]

学习，帮你UP

[roc996]

插入的字体颜色怎么控制