说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB5.0调用Office97技巧

HTML文档下载 WORD文档下载 PDF文档下载
VB5.0调用Office97技巧
作者:袁津生
Visual Basic 5.0具有简单、易学等特点,深受初学者的欢迎,但也有一些不如人意的地方。例如,不能像Word 97那样进行拼写检查,不能像Excel 97那样具有很多的函数。如果我们能将Word 97和Exce l97的功能使用在Visual Basic 5.0中,就可以使VB达到锦上添花的目的。

  我们知道所有Office 97 应用程序都提供了ActiveX对象,我们可以在Visual Basic 5.0中使用它们。

  调用Word 97

  要想在VB中调用Word 97,首先要打开VB的“工程”菜单中的“引用”项目,并在该项目对话框中选定“Microsoft Word 8.0 Object Library”就可以了。

  下面我们举例说明调用Word 97中的“拼写检查”和“单词统计”功能。首先新建一个工程并在窗体上放置一个TextBox控件和两个CommandButton控件,然后添入如下的代码:

   Option Explicit

   Dim Doc As New Document

   Dim Visi As Boolean

  图1 调用Word 97

   ′拼写检查

   Private Sub Command1-Click()

   Form1.Caption = “拼写检查"

   Doc.Range.Text = Text1

  ′确定范围

   Doc.Application.Visible = True ′将Word 97变为可见

   AppActivate Doc.Application.Caption

  ′激活Word 97

   Doc.Range.CheckSpelling

  ′拼写检查

   Text1 = Doc.Range.Text

   Text1 = Left(Text1, Len(Text1) - 1)

   AppActivate Caption

   End Sub

   ′统计单词数

   Private Sub Command2-Click()

   Dim Dlg As Word.Dialog

   Doc.Range = Text1.Text

   Set Dlg = Doc.Application.Dialogs

   (wdDialogDocumentStatistics)

   Dlg.Execute ′统计单词和字符

   Form1.Caption =“单词数:" & Str(Dlg.Words) & “词"

   & Str(Dlg.Characters) & “字符" ′显示统计结果

   End Sub

   Private Sub Form-Load()

   Form1.Caption =“调用Word 97"

   Text1.Text = “"

   Command1.Caption = “拼写检查"

   Command2.Caption = “统计单词"

   ′使应用程序可见

   Visi = Doc.Application.Visible

   End Sub

   ′关闭应用程序

   Private Sub Form-Unload(Cancel As Integer)

   If Visi Then ′关闭文件

   Doc.Close savechanges:=False

   Else

   Doc.Application.Quit savechanges:=False ′关闭 Word 97

   End If

   End Sub

   运行中的窗体如图1所示。



  图2 调用Excel 97

  调用Excel 97

  使用Excel Sheet对象的技术可以处理可变数量的数据,并将结果最后送到你的Visual Basic 应用程序中。例子如下:

  新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。

  程序代码如下:

   Option Explicit

   Private Sub Command1-Click()

   Dim xObject As Object

   ′调用Excel 97

   Set xObject = CreateObject(“Excel.Sheet")

   Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet

   xObject.Range(“A1").Value = Text1.Text ′将数值送入Excel 97的A1单元格

   xObject.Range(“A2").Value = Text2.Text ′将数值送入Excel 97的A2单元格

   xObject.Range(“A3").Formula = “=MAX(A1,A2)" ′将最大值送入A3单元格

   xObject.Range(“A4").Formula = “=ATAN(A1/A2)*180/PI()" ′将反正切值送入A4单元格

   ′显示计算的结果

   Label1.Caption = xObject.Range(“A3").Value

   Label2.Caption = xObject.Range(“A4").Value

   Set xObject = Nothing

   End Sub

   Private Sub Form_Load()

   Text1.Text = “"

  Text2.Text = “"

  Label1.Caption = “"

  Label2.Caption = “"

  End Sub

  该程序的作用是:首先在两个文本框(Text1和Text2)输入数值并分别将输入的数值送入Excel 97的“A1”和“A2”单元格中,然后用Excel 97中的“Max()”函数将计算的结果送入“A3” 单元格中;用反正切函数“ATAN()”进行计算并将结果送入“A4” 单元格中,最后输出。
不利于写出好代码的15个职场因素 GPU Saturday技术沙龙:分享异构计算新技术及应用 微软隐藏最深的秘密武器之一——Visual Studio可作为Python IDE 历时六月,Qt 5.1正式版终于面世! HTML5全硬件加速游戏引擎:Sphinx正式公测 专访“Monster Blade”创始人:无需营销,百万下载背后的秘密 Twitter实时分析平台主要合作伙伴Dataminr:让用户不再错过重要的推文 OpenStack、OpenNebula、Eucalyptus、CloudStack社区活跃度比较 XOR的黄色大象:Erasure Code为Hadoop节省数据恢复带宽 竞争将越来越激烈:戴尔或也进军可穿戴计算市场 新技术:可直接在人脑播放广告 编程调试和诊断的五大规则 70%开发者:对现有应用推广和广告并不满意 四种方案:将OpenStack私有云部署到Hadoop MapReduce环境中 扩展PHP的五个简单技巧,让单服务器并行支撑30000用户 硅谷为什么无法复制 PubNub+Cloudinary:简单几步快速搭建实时图片分享应用 影响互联网行业的十大API(信息图) Hadoop+GPU强强联手的性能探索 Eurora获最节能超算殊荣,中国天河2号位列第31 程序员的野心:让GPU像CPU一样运行 Gungho热潮正在逐渐消退? Thalmic创始人专访:穿戴式体感设备MYO背后的开发故事 移动周报:GSMA各种神器,Qt 5.1,Android 4.3,本周惊喜多多! 奇虎360Web平台部基础架构团队访谈:开源线上数据库中间件Atlas 化繁为简:UC优视发布“UC+”开放平台战略 从40亿美元到10亿美元 Hulu的美梦是否又一次成为泡影? 百度开发者俱乐部第六期:BAE3.0开放内测 云编程马拉松启动 微软宣布将于今年9月30日正式关闭MSN TV服务 程序员不应该再犯的五大编程错误 中国开源事业,路在何方? 线程传递消息有时出现乱码 如何随机生成6位密码,但不能有重复 如何在邮件的信头立加入自己喜欢的图片??谢谢 请问:为什么可以给一般对话框上的按钮添加位图,在CDialogBar上却不行?如何在CDialogBar上的按钮上显示位图?谢谢回复。 救命!在线等!再发。 怎末实现 统计图片的点击率??? 在线等待,解决即给分!!! 求助!连接数据库问题? VC.NET和VC6.0的语法差别大吗? 图像处理和计算机视觉方面有什么牛公司嘛? 高分求服务器c#向客户端javascript传递数据的各种不同方法!!! 用过C196开发196KC/KB的请进,谢谢 我用MFC编写了一个ActiveX控件,如何实现安全接口? 如何实现 XP 中目录窗口左边那种菜单 有关界面设计的两个问题? drawString时怎样规定一个区域,在这个区域内的文字显示,超出的不显示 急!在线等!Excel文件导入的问题。找不到可安装的ISAM 结识搞PHP的朋友 关于cell组件 郁闷当中,谁能给个用vb做DLL然后在DLL中增加数据库记录,在asp调用的例子。 singleton模式实现的问题 100分 谁讲一下定点数和浮点数的区别 急急急.请各位大虾帮帮忙啊! 請問語句的意思,謝謝 (Oracle8i)以SYSMAN登录控制台 斑竹9我! 求教高手!!!TEXTBOX与DATAGRID的问题 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 逐层加热式电开水器技术的质疑所谓的电开水器逐层加热技术,可避免阴阳水和千沸水,真的能做到吗?都知道液体的对流原理,水在被加热后,一定会在水箱中对流,能不破坏水层结构吗?我看这是 电解抛光可以用不锈钢做挂具吗? 无水cacl2可以吸收什么气体或其他的 项脊轩志是高中课本苏教版的必修几啊急················ 超级电容充电后,为什么电压会保持不变或是衰减的很慢?是内阻很小还是电解质的特性等原因造成的?求原理超级电容充电后的电压为什么会长时间的保持不变,本质原理是什么?影响其电压衰 阖上是什么意思 静电接地跟避雷针的作用有什么不同? 铁锈能导电吗?有人说能,但比较弱;有人说不能,它是绝缘的.我想知道到底能不能? 阖,捭,这二字是什么意思?拼音注上谢谢! 苏教版高中语文书必修五《项脊轩志》后面一篇文言文是什么啊?书忘记带回来了..ps:《长亭送别》 也算..请告诉我后面一篇文言文是啥=-= 铁锈导电吗?请教铁锈是否导电?比如在交流220V或380V的情况下;另外,对于铜和铝而言,铜锈和铝锈也导电吗?请回答具体的情形. FLUKE336钳形表能测量泄漏电流吗 北京特种作业操作证查询我把操作证号忘了,请问怎么找回? 铝电解电容器在高温老化时电压会下降10多伏,请问是怎么回事?是螺钉高压大容量的电容器450v5600uf 寝室限制功率,电源先连本本再插插座就行,反之就跳闸,为什么?寝室限制功率,本本的电源先连接本本然后再插到插座上不跳闸,反之,电源不连本本,直接插插座就跳闸,这是为什么?忘了说了,我 特种作业操作证查询塔吊证号T370421197003032913是真的假的~急 铁锈会导电吗? 闻了水果高度腐烂后的味道 ,对身体有什麼危害嘛 蝴蝶怎么折 纸蝴蝶的简单折法图解 把一个充电的电容器断电,在把一半的电容器充上均匀电解质,请问左右两边电容器的电压相同吗?要详解,思路清晰的增加悬赏! 写出一种比较好吃的水果,这种水果的味道,写详细一点. 空调达到什么什么负荷时压缩机启动自动保护 铝电解电容器电解液的价格是多少 感叹句转换这句话把我打动了.改为感叹句 病人右拇指感染,从左手背注入抗生素,经哪些途径到达病灶? 有机溶剂类铝电解电容器电解液国内有哪几家在做?什么量?什么价格水平?国外的主要是有谁在做?可否推荐几家? 转换感叹句What a dry day it is today!转换成HOW的感叹句 冰箱压缩机正常情况下会多久起动一次啊?压缩机起动和结束时冰箱会发出一声“叭”的声音,也不是很大,分别就一声,压缩机起动是开始制冷,对吧,那一般压缩机起动一次大概会持续多长时间 渤海海峡是内海海峡吗? 感叹句之间的转换.1.She is very happy. Hwo ( )!2.what a nice room it is ! ( )room it is!3.How surprising the new is ! What ( )i 我想知道,现在的那种家用的电水壶,塑料的那种,他的加热方式是怎么样的?1.是把加热器直接放在水壶里面,也就是直接把水加热,还是2.在装水的塑料外面装一个加热器,隔着塑料加热水如果是 肌肉注射药物要抽回血吗 人生是一个正方形是什么意思 电动热水壶不加热什么问题 连接大西洋与其内海的海峡?1 苏伊士运河 2 直布罗陀海峡 3 土耳其海峡 4 马六甲海峡 1 2 1 4 2 4 2 3 英语翻译 水壶二次加热的问题?我买了个养生壶带有保温功能,当汤水煮好后可以恒定在一个温度上(我设定在40度),这样会不会造成汤水的亚硝酸盐升高呢?还有煮汤一般都要煮一两个小时会不会含有 现在的空气有没有毒 英语翻译tired of drifting?是不是最好的表达? 指人的气量 病毒的生活需要空气吗 拱形节水骨架护坡转角遇到半锥体应该怎么做?坡度比较坡,半锥体应该是浆砌片石还是干砌片石厚度怎么确定? 核糖体是不是属于细胞质 一般情况下空气中存在病毒么 请问锥体束是? 氧化铁还原后的铁能不能用?还原后的铁能不能用来制造各种铁器 Zippo打火机新款沙子200带便携式烟灰缸24748礼盒装 截得的小锥体的体积与已知锥体的白锥体的体积比等于相应高的比吗 电可以组什么词 zippo SC1677这个型号到底是烟灰缸还是打火机啊? 关于锥体束、锥体束征、牵张反射之间关系的疑惑.锥体束是牵张反射易化作用的一条路径,牵张反射的结果便是肌张力的升高;而锥体束受损,出现锥体束征,上运动神经元对下运动神经元的抑 电怎么组词 澳大利亚的什么业发展迅速,超过了什么和什么,是澳大利亚的经济支柱 锥体是如何定义的? 一群猴子,树上的是地上的五分之三,上去了6头,这时树上和地上的一样多,问原来一共有几头 澳大利亚的矿产对本国的经济有什么影响 青藏铁路沿线地区的主要支柱产业是畜牧业,说说那里发展牧业的有利条件有哪些 有18只猴子在三颗树上.两分钟后2只猴子从第一棵树跳到第二棵树,然后5只猴子从第二棵树跳到第三课树.现在三颗树上的猴子数都相等.请问,原先每颗数上有多少只猴子? 二十世纪七十年代澳大利亚最大的经济支柱是什么行业 世界上什么地方的气候夏天凉爽干燥?如题.是不是不存在?相对的,说来听听也可以干燥是指的没有我们夏天所必须忍受的“闷”的感觉,以及没有身上总被汗水包围的感觉 印度外长访澳为三年前留学生在澳被杀案澳大利亚警方追捕偷车贼 路过少年被无一驻日美军士兵涉嫌酒驾被逮捕 称已小新华国际时评:“弱冠”欧盟期待“涅槃澳大学开设全球商业学士学位课程 多语韩媒称韩国雾霾源自中国 记者实地考证巴勒斯坦四名武装分子与以军发生冲突被中美企业家共商双边合作前景男子把鸡蛋强塞女子下体后捏碎性侵 辩韩国模特独岛上秀服装 旨在宣示“主权习近平:坚持男女平等基本国策 发挥妇经济学家樊纲:中国经济已经基本完成软罗马尼亚:保管箱频失窃 银行安全自查乃木坂46推出首部写真集 上演清纯泳我国将在南极建立第四个科学考察站--澳大利亚10月房价环比上升1.3%泰国欲征入境税 短期内恐难实施篮协确认中国男篮申请世界杯外卡缅甸总统呼吁尽快签署全国停火协议东京股市日经股指下跌0.88%新加坡欲购88套美国多管制导火箭发射国内最大的股权纠纷案二审结束分类广告瑜伽 水墨园中冥想菩提艺术家对谈:此时你陷在哪个世界?爵士音乐岁月留声人身伤残标准新规下月执行沙龙 与灵魂沟通让心灵成长酒店总厨也是街市控 精明眼教你拣靓猪空头回补推升金价触底反弹金融服务站多点开花 商业银行抢滩社区6人保持正收益1人空仓住酒店送郭富城演唱会门票血癌中断高三生求学路 数十万治疗费难中信银行“ 9分享兑”正HOT多个知名品牌供应链涉废水排放超标年底消费光大信用卡帮你“省钱”交通银行率先实现黄金线上线下自助销售车主陋习何止十种五部委:比特币不能且不应作为货币在市金发科技签合作协议推广生物降解农膜财政部:国有金融企业发可转债净资产要
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘