pb调取word

//对齐方式ole_object.Selection.ParagraphFormat.Alignment//粗体ole_object.Selection.Font.Bold//字体ole_object.Selection.Font.Name//斜体ole_object.Selection.Font.Italic//下划线ole_object.Selection.Font.Underline//字号ole_object.Selection.Font.Size//前景色ole_object.Selection.Font.Color//建立OLEObject对象OLEObjectole_objectole_object=CREATEOLEObjectifole_object.ConnectToNewObject(Word.Application)0thenMessageBox('OLE错误','OLE无法连接！请确定已经安装EXCEL！')returnENDIF//添加工作表ole_object.Documents.Add//创建包含一定数目的空白工作表的工作簿ole_object.visible=true//ole_documents=ole_object.Documents(1).Activate//插入一段文字stringss=我是一个学生，我在测试录制宏ole_object.Selection.TypeText(s)//选择刚才插入的文字ole_object.Selection.MoveLeft(1,len(s),1)//把选中的文字转成14号黑体粗字ole_object.Selection.Font.Name=黑体ole_object.Selection.Font.Size=14ole_object.Selection.Font.Bold=True//保存ole_object.ActiveDocument.saveas(d:\test.doc)//释放Ole_Object.DisConnectObject()DestroyOle_Object/*******************************************************************************名称：gf_savetoword描述：将数据窗口中的数据导到WORD中参数：adw_1,数据窗口；filename,要导到哪个文件里面。title标题返回:无时间：2004-03-26作者：pisa修改：*******************************************************************************/constantintegerppLayoutBlank=12OLEObjectole_objectole_object=CREATEOLEObject//连接WORDIFole_object.ConnectToNewObject(Word.Application)0THENMessageBox('OLE错误','OLE无法连接!')returnENDIFole_object.Visible=Truelongll_colnum,ll_rownum,li_hide=0constantlongwdWord9TableBehavior=1constantlongwdAutoFitFixed=0constantlongwdCell=12stringls_valuestringls_colnameintegeri,j//得到数据窗口数据的列数与行数（行数应该是数据行数+1）ll_colnum=Long(adw_1.object.datawindow.column.count)ll_rownum=adw_1.rowcount()+1fori=1toll_colnum//得到标题头的名字，并插入表格的第一行ls_colname=adw_1.describe('#'+string(i)+.name)+_tls_value=adw_1.describe(ls_colname+.text)ifls_value='!'thenli_hide++continue;endifnext//新建新文档ole_object.Documents.Add(C:\WINDOWS\ApplicationData\Microsoft\Templates\Normal.dot,False,0)ole_object.selection.ParagraphFormat.Alignment=1ole_object.Selection.TypeText(title+'~r~n')ole_object.selection.ParagraphFormat.Alignment=3ole_object.Selection.TypeText('当前打印时间'+string(today(),'yyyy年mm月dd日')+'~r~n')ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range,ll_rownum,ll_colnum-li_hide,wdWord9TableBehavior,wdAutoFitFixed)fori=1toll_colnum//得到标题头的名字，并插入表格的第一行ls_colname=adw_1.describe('#'+string(i)+.name)+_tls_value=adw_1.describe(ls_colname+.text)ifls_value='!'thencontinue;endifole_object.Selection.TypeText(trim(ls_value))ole_object.Selection.MoveRight(wdCell)nextadw_1.setredraw(false)ole_object.Selection.MoveLeft(wdCell)//将数据插入表格fori=1toll_rownum-1forj=1toll_colnum//ls_colname=adw_1.describe('#'+string(j)+.name)+_tls_colname=adw_1.Describe(#+string(j)+.name)ls_value=adw_1.describe(ls_colname+_t.text)ifls_value='!'thencontinue;endifls_value=adw_1.Describe(Evaluate('LookUpDisplay(+ls_colname+)',+string(i)+))ole_object.Selection.MoveRight(wdCell)ole_object.Selection.TypeText(ls_value)nextnextadw_1.setredraw(true)ole_object.selection.movedown(5)ole_object.selection.ParagraphFormat.Alignment=3ole_object.Selection.TypeText('操作人'+s_sys_user.username+'~r~n