PowerBuilder中将数据保存为Word数据

OLEObject ole_object
ole_object=CREATE OLEObject
if ole_object.ConnectToNewObject("Word.Application")<>0 then
MessageBox('OLE错误','OLE无法连接!')
return 
end if
ole_Object.Visible=true

 long ll_colnum, ll_rownum

constant long wdTableBehavior=1
constant long wdAutoFitFixed=0
constant long wdCell=12

ll_colnum=long(dw_1.object.datawindow.column.count)
ll_rownum=dw_1.rowcount()+1

ole_object.documents.add
ole_object.activedocument.tables.add(ole_object.selection.range,ll_rownum,ll_colnum,wdtablebehavior,wdautofitfixed)

string pathname,filename
integer value
string is_colname,is_value
integer i,j,k,l,m

value=getfilesavename("保存文件",pathname,filename,"DOC","DOC文件(*.doc),*.doc")

if value=1 then
for i=1 to ll_colnum