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

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” 单元格中,最后输出。
用DELPHI制作留言板 再谈用Delphi程序获取拨号连接的动态IP地址 在DELPHI程序中拨号上网 在DELPHI程序中获取网络资源信息 在Delphi程序中应用IE浏览器控件 在Delphi中调用NetscapeNavigator 在Delphi中使用flash控件 在Delphi中使用IP控件 在程序中动态取得Win95/98网络邻居中工作组及计算机名-Delphi资料 在程序中获取网络资源信息-Delphi资料 自制THyperLink组件-Delphi资料 报表制作技巧(三)-Delphi资料 Delphi数据库开发及统计表格设计 Delphi文本和图形的打印方法 Delphi应用程序中中国式报表的制作 Windows环境下实时列表输出的实现方法-Delphi资料 报表制作技巧(二)-Delphi资料 Delphi编制的程序运行中动态制作报表 报表制作技巧(一)-Delphi资料 如何在WINDOWS中控制打印字体的长宽,而不受限于SIZE 的限制-Delphi资料 也谈为Delphi中数据库报表加网格 用Delphi4的QReport部件生成报表 用Delphi编写打印程序的窍门 用Word做Delphi报表输出工具 在DELPHI 文 本 和 图 形 的 打 印 在Delphi中运用QuickReport实现多栏列印 在打印或打印预览前如何获取报表页数-Delphi资料 自定义快速报表的打印预览窗口-Delphi资料 Delphi 3 图形VCL中Bug修改方案 Delphi hint的字体和色彩如何改变 Delphi3.0中复活节彩蛋及实现 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页?怎么答题 一项工程甲单独干需10天,乙独干需8天,现在甲先做2天,剩下的两队合作还需几天? 怎么写通讯稿,最好来篇范文,我在供应部,领导叫写一篇关于电煤的通讯稿, 一本小说,每天看45页,第16天看完;如果每天看54页,第14天就看完了,这本小说最多几页,最少呢? 一项工程,如果单独做,甲队需8天,乙队需10天,两队合干了一段时间后,还剩下这项工程的三分之二没有完成.甲、乙两队合干了几天 陈叔叔在一家公司上班下图是他一个月的支出 求这个月的总支出是多少,和伙食费是多少元 双向自动扶梯一层到二层,两个扶梯梯级宽度都是800,三十度倾斜角度,提升高度为4200那么土建时,二层预留洞口宽度为多少,二层顶端是否要留得大点,一层基坑的大小是多少? 1.下面是红光有限公司2006年四个季度的收入与支出情况统计图.单位:万元 四季度收入:800.400.500.900.支出:600.300.300.500 .(1)分别计算出每个季度支出各占本季度收入的几分之几.(2)比较 一本小说,如果每天看45页,第十六天看完;如果每天看54页第14天看完.这本小说最多有几页?最少呢? 巍巍中山陵第9段描写了哪里的景色 怎样写通讯稿 我读1本书第1天读了10页以后每天都比前一天多读2页第16天读28页正好读完 这本书共多少? 哪位能将《巍巍中山陵》书后习题答案告诉偶,万谢 竞选纪律委员发言稿 有关 崇尚科学,反对邪教 的征文800到1000字.麻烦写得水平高一些吧. 巍巍中山陵 写祭堂用了什么说明顺序 急具体的空间顺序,比如说由内到外什么的,是写祭堂,不是整体写中山陵,要具体的空间顺序,急 在一个底面半径是10厘米的圆柱形杯中装了一些水,把一个底面半径是5厘米的圆锥形铁锥完全浸入水中,水面上升了1.2厘米,这个圆锥形铁锥的高是多少? 一项工程甲队独做8天完成,乙队独做10天完成,甲乙合干三天,乙队另有任务,甲队还要干几天才能干完这工程高手来解 当.时,.而当...时,.造句(《巍巍中山陵》第八段 仿写) 在一个底面半径是10厘米的圆柱形杯中注满水,水底放了一个底面半径为5厘米的圆锥形物体,当这个物体从水中取出后,杯里水面下降了6毫米,这个物体的高是多少? 小东图书本数的5分之3等于小强图书的3分之2,小东与小强图书质量比是多少 去澳门考托福需要准备什么!本周六就要去澳门考托福了!由于是第一次 自己去 所以也不知道该准备什么!请问要带什么不要带什么呢!除了身份证护照之外有什么证明的呢?就是需不需要用张纸 通讯稿与新闻稿的区别是什么 小刚和小强看同一本书,小刚还有19页没看,小强还有14页没有看,他们俩()看的页数多. 一个底面直径是20厘米的圆柱形容器里面装有一些水,把一块铁块完全浸没在水中,水面上升了3厘米,这块铁块的体积是多少? 竞选纪律委员演讲稿 我作文总是写不够字数怎么办?怎么才能有话说,凑够字数?基础差我看到作文就觉得没话说.怎么才能把文章写细腻,写够字数?800字 中山陵怎么走? 帮忙写个作文开头和结尾,题目《目光,助我前行》作文的要求是“题目中含有‘目光’一词”.我想写体育课时各种目光:同学们取笑我体育不及格的目光、老师失望的目光、还有朋友鼓励的 已知圆锥的底面半径是3,母线长为6,则该圆锥侧面展开后所得扇形的圆心角为需要讲解下.. 中山陵怎么去 找地震中的师生情班会主持词?快 帮我点评一下这篇托福作文,看看能多少分求 各种拍砖People work because they need money to live.What are some other reasons that people work?Discuss one or more of these reasons.Use specific examples and details to support your ans 中山陵的地理位置【要简短】 专家帮忙给我托福作文评分你认为人们都是为了什么上大学的,就是ibt的第一个独立作文题目.my version:Basically,university and college is a place for learning,trying and enjoying .With the extension of enrollment of s 励志名言名句,附带一篇演讲稿 用什么去刺激蟋蟀须,让它们打架 写了一篇托福作文,希望能得到一些意见和建议,文章主要都是自己发挥,不太想用模板,觉得这样会有些枯燥,而且对长期的写作帮助不大.所以写得比较随意,可能问题会比较多,虚心赐教,People tod 小红看一本书,第一天看了全书的14%,第二天看了12页,还剩27页没看.这本书一共多少页? 蟋蟀吃什么?怎么看雌雄?现在养最多活几天? 关于四川地震的中队主题队会结尾串词怎么写我现在初1,不用太长,也不要太短, 小红看一本书,第一天看了全书的10%,第二天看了全书的15%.第二天比第一天多看12页,还剩多少页没有看 巍巍中山陵课文问题吕彦设计为什么能脱颖而出?为什么要介绍大平台与入口石坊垂直高度差? 清明节主题班会主持词要求清明节主题班会的主持词! 蟋蟀怎么才能打架 中山陵简介(200字以内)不要提到孙中山 在一个底面半径是6分米盛满水的圆柱形容器中浸没一个底面半径是3分米的圆锥形铁锥,当铁锥被取出后,容器中的水面下降了2分米,求铁锥的高?急 蟋蟀会因为吃的而打架吗 中山陵简介 100字 在一个底面半径是6分米盛满水的圆柱形容器中浸没一个底面半径是3分米的圆锥形铁锥,当铁锥被取之后,容器中的水面下降2分米,求铁锥的高? 有一本书,原计划每天看20页,如果每天多看5页就提前2天看完,问这本书有多少页?请不用方程式解题,并讲出过程, 看风识天气的谚语 请牛人指点下英语四级怎么复习能过啊 我基础不好基础就是十分不好 蟋蟀为什么爱打架我要做问题,请帮我! 中山陵简介 50字100以内就可以 对从事热力、电力、燃气、自来水等公共事业,怎样征收增值税?与销售数量有关的能不能举个例子呢? 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页? 关于梦的作文.是梦,不是梦想. 译英语:自建房虽然通了电,但没有一条像样的路,没有自来水,没有公厕,没有煤气和暖气. 美国电视荧屏常可看到公开对中国人侮辱俄“质子”火箭搭载美国通讯卫星升空美国承认窃听事件对美国与伙伴国关系造中国周边外交分量加重 升级、提速、加西方盟友会不会因“监听”散伙?美国监听丑闻变“质”环保部:上半年新疆青海等省区氨氮排放人社部:正研究办法治理公职人员“吃空亚冠决赛今夜首战 恒大优势大或破\"媒体称广州公务员年收入超17万 不少女子超市门口产下龙凤胎续:其亲人已经杭州一头藏獒蹿出工地咬伤小区保洁员欧洲盟友讨伐美国的“监听战争”俄“质子”火箭搭载美国通讯卫星升空诺奖得主:转基因之争需要一场高质量的地球变暖事实确凿 人类活动是主因美国对中国等七国钢铁产品发起贸易救济杭州国内经济合作洽谈会引资超155亿十对新人昨天在杭州运河边富义仓拜天地上海浦东一居民被物业劝离后死亡 官方教育部专家谈高考改革:自主招生或将进的哥开车遇惊魂被撞360度打个转 肇西安市民体检验血“巧”遇重号 体检过马竞重蹈40年前丢冠悲剧 3伤6黄后李宗盛开唱台下男默女泪《如果爱》今日首播看明星谈恋爱70岁木匠画家 10余年画出“川西清合江交警副大队长所丢配枪找回 纪委已云南油鸡枞菌“四川版” 更麻辣图片新闻乌总统选举今日开始 中间路线有望胜出周末到汶川摘车厘子 听起来不错…龙哥驾到三台县 隆发激活四川足球“热尤伯杯中国成功卫冕收获第13冠小男孩找妈妈独行走失 拒不说话 女民明星真人秀会自黑才会红请问小同学:137路公交如何改站名?场上机器人比能耐 场外小伙伴们比智慧聪明的人易失眠? 爱因斯坦为证?“男神”李伯清:要一直给大家说下去这场演出好高端 理工博士唱醉你耳朵驾车扫射致7死7伤 只因遭受“拒绝”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘