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

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” 单元格中,最后输出。
将数据转换为内存二进制形式字符串(模拟CV?和MK?$两组函数) -VB资料 禁用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 禁止使用 Alt+F4 关闭窗口-VB资料 绝非玩笑:VB7将完全面向对象 拷贝磁盘 -VB资料 控制Ctrl+Del+Alt键-VB资料 快速编辑VB程序技巧 快速查找或替换文本中的字符-VB资料 快速建立目录 -VB资料 快速交换整数 -VB资料 快速注册/注销动态链接库或控件-VB资料 理解面向对象编程 -VB资料 VB利用GetCursorPos 读取滑鼠的座标 利用Visual Basic 关闭Windows9X或者Windows NT VB利用代码启动/关闭中文输入法 模拟一次鼠标事件 -VB资料 目前执行的是哪一国语言的 Windows -VB资料 VB判断剪贴板的所有可用格式 VB判断驱动器类型 VB判断是否已经建立 Dial Up 连接 VB判断一个年份是否为闰年 VB判断一个驱动器的类型 屏蔽文本框默认的右键菜单——浅谈如何控制Windows消息 -VB资料 奇数和偶数校验-VB资料 启动控制面板命令大全 -VB资料 VB取得 DOS 环境变量 VB取得并设置双击间隔时间 VB取得磁盘序列号、卷标和文件系统类型 VB取得短文件名 VB取得和设置计算机名 VB取得和设置系统颜色 请教大量二进制数据在内存中的存放(马上给分) 讨论:有关tomcat的解释顺序的问题. TechnoFantasy 请近来,还有100分哦:) 打印问题 强烈建议在文档中心增加C++ BUILD!!! 对于同一个SOCKET,能否起多个线程同时读、写呢?如何实现? ??!!!有急事相求 谁知道如何在自己的程序中建立象IIS那样的meta-database数据库结构? 怎样在数据库连接关闭后读出数据? 你知道扩展名为img是什么文件吗? 请问如何在Delphi中实现 AutoComplete(自动完成) 的功能?急!急!急! 请教一下在MDI的程序中pmyView->GetParent()->GetParent()->..... 都得到了什么?? 好奇怪的初始化问题。 一个RANDOMACCESSFILE的问题 急急急!!!VB中如何 实现多行删除表中数据???? 有关注册表的问题 ASP中用ADO连接SQL Server2000的连接字符串怎么写? 在画布上怎么实现滚动条 急~~~如何从文件中取值赋给动态数组?~~~~在线等待 到哪里能够下载 BCB6 Update 请问关于REDHAT下关于安装MYSQL 的问题 请问关于REDHAT下关于安装MYSQL 的问题 CreateFolder("name") 问题 name是变量怎么办???? 急!!! 如何做像 http://www.my0807.com/1.gif 的文字。。 请教真正的高手。 如何用TURBOC 2.0编程检测WINDOWS是否已在运行中? VS.NET能专Windows98中安装吗? 如何创建一个imagelist,用CImageList,可以记录24位色的位图 这个关于树的问题我越想越想不通,请手指点指点:) 用winsock控件设置client/server程序时,server端应怎样设置,请各位大虾帮帮小弟!!谢了! 从MIDI文件转换成简谱的问题? 请问谁有高招??????? SOS ,谁能帮帮我? 如何在一个程序中得知另一个指定的程序是否运行? 很急!!请教高手,这样的思路是否正确?(数据库方面)内有非常详细的说明,谢谢!! 我是处学者 这个关于树的问题我越想越想不通,请手指点指点:) 50小分征集C++的类和VBS的类的区别? hg0001(CoolFish) ,分已给!请发给我! 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如何使用 WRITEFILE 函数将二进制数据写入文件? 我装的是XP,JDK1.3,无法编译程序 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如下的演示光盘要实现的功能用什么软件开发比较好一个新手完成要多长时间? windows如何实现禁用状态文字? 输入不回显 你没有权限删除贴子!!!奇怪 Tc 那为用的是win XP,请进! 我输入的PYTHON怎么编译不出来? 问一个很弱的问题 0.4166 百分号前怎么保留1位小数 大鼠内脏未经液氮直接放入-80超低温冰箱能否做基因表达和蛋白表达?就是指基因的表达量。和蛋白质的表达量 革兰氏阴性细菌细胞壁的主要毒性成份是?是脂多糖嘛? 一个百分号前保留两位小数的百分数,百分号前保留一位小数时,它的近似值是90.0%这个百分数最大是(),最小是(). 一个平行四边形 如果它的高不变 底缩小2倍 它的面积将( )如果它的底和高扩大10倍 那么它的面积将( ) 革兰氏细菌细胞壁成分? 0.3598(百分号前保留一位小数) 1.一个数被2除余1,被3除余1,被5除余1,被6除余1(1)如果这个数减去1,那么它能否同时被2,3,4,5,6整除?(2)符合这样条件的两位数是____(3)符合这样条件的最小的三位数是_____(4)符合这样条件的三位数有 谜语.地球上有个26英文字母,AB跑到月球去了 液氮能瞬间杀死植物叶片细胞吗各位植物生理方面的专家,学者,师兄师姐,师弟师妹,我最近在做植物生理方面的论文,请问,我在采植物叶片时,将采下来的叶片立即放入液氮处理,这样可以立即 一个数被3,4,6除都余2,这个数最小是多少 为什么革兰氏阳性菌经染色后会呈现红色 植物经液氮冷冻后,它的细胞结构会发生什么变化吗?用液氮冷冻后的叶片做石蜡切片观察叶片形态解剖特征,会和没冷冻的叶片的形态解剖特征一样吗 2011浙江英语高考卷的D篇中文翻译,谁知道啊It was Satuday.As always, it was the one, for “Six days,shall you labar and all your work”was taken senously but ?Father and Mr.Patnce ncxt door were bxsy conny tcood lnside the wiel users 1到12月的英文字母无 液氮能将植物组织破碎到什么程度? 英语翻译Wealth starts with a goal saving a dollar at a time.Call it the piggy bank strategy(策略).There are lessons in that time-honored coin-saving container.Any huge task seems easier when reduced to baby steps.I f you wished to climb a 12,00 11月的英文字母怎么写1分钟内要,紧急! 衢怎么读音 液氮处理新鲜植物时的操作办法看到大家都说是在研钵中边加液氮边研磨.问了以前提过的同学,说这样子会耗费大量的液氮能磨细的样品却只有一点点.可是我液氮是问其他专业人借的,顶多1L, 英语在线翻译加朗读 哪种形状的细菌会产生孢子(芽胞)? 3x的平方等于27,用开平方法做 英语翻译1Ifexercise wears you out,how can it be good for you?Because ourbodies adapt to everything we do to them.And as far as your body is concerned,it’s “use it,or lose it”!It’s not that exercise makes you healthy,it’s more that a lac 1、一个数被3余1,被5除余2,被7除余2,这个数最小是( )2、一个数被5余2,被6除余3,被7除余4,这个数最小是( ) 听说冰箱里的细菌很多,是这样的么?怎样除冰箱的细菌? 革兰氏阳性细菌和阴性细菌在细胞壁的结构和化学组成上有什么异同点?与此相关的主要特征是什么? 甄姬~~这2个字的拼音是什么? 关于同余和孙子定理的证明题如果x,y是不被3或5整除的整数试证明x^4≡y^4 (mod 15) 革兰阳性菌与革兰阴性菌细胞壁结构差异 甄姬的名 张郃的字 怎么拼?求拼音帝指点秦宓,mì,四声,可洛神赋中宓妃怎么念fú? 一个数被5除余1,被7除余3.求这个数?怎么算啊 革兰氏阳性菌和革兰氏阴性菌细胞壁的构造 这俩字咋读,要拼音 如何证明 同余定理 中的 除法原理?除法原理:a ≡ b mod(cn) ==> a ≡ b mod(n); 求教如何证明? 革兰氏阳性细菌和革兰氏阴性细菌的细胞壁在化学组成上有什么不同 这拼音读什么字 基本定理 证明能不能看下第四,五题和第七,八题,五七完全就没看懂,四和八有思路但四题为什么a可以等于0啊,八题聚点那个怎么弄进去. 革兰氏阳性菌细胞壁肽聚糖是由什么组成 判断题;平行四边形的四个边都可以做底 为什么这里会说“被液氮冷却的“高温””这里的高温指的是超低温是吧? what sthe weather like there in autumn 平行四边形有四个角四条边折到判断题对吗? 谁能告诉我泊松定理怎么证明?n(n-1)...(n-k+1)/k!(λ/n)^k怎么就等于(λ^k/k!)(1-1/n)(1-2/n)...(1-(k-1)/n)? What's the weather like in autumn? 平行四边形的判断题 只要判断题 比如平行四边形的性质,盼定等等等等 测定激素的叶片,没有用液氮速冻,直接放在超低温冰箱中影响大吗 中国浙江省杭州市湖滨路英文地址怎么写 一道关于平行四边形的判断题平行四边形都不是对称图形.一般来说.我觉得是对的.可有的人说“都”.正方形是的啊. 请告诉我这是什么定理,并给出证明过程认作一三角形ABC,AD平分角BAC,求证:AB:AC=BD:BC. 请问“浙江省杭州市、2007年3月28日”英文分别该怎么写 用数学归纳法证明,当n为正奇数时,x^n+y^n能被x+y整除求详解 -60度低温冰箱,-86度超低温冰箱,零下60度低温冰箱,零下80度超低温冰箱,天寒超低温冰箱,海尔超低温冰箱,三洋超低温冰箱,美国热电超低温冰箱,联系电话多少SANYO超低温冰箱,Thermo Fisher Scientifi 浙江在中国的东部 英文怎么写 在化学反应中A+2B=C+2D中,5gA物质与20克B物质刚好生成C物质15克.在化学反应中A+2B=C+2D中,5gA物质与20克B物质刚好生成C物质15克.若生成D物质30克,则需消耗A物质多少克? 请问余式定理有什么通俗易懂的证明方法 浙江省英语三级怎么查 有A.B.C三种物质各15克,在一定条件下充分反应只生成30克的D,诺增加10克的A,则反应停止后,原反应物只有C,根据上诉条件中正确的,为什么是第2次反应停止后,C剩余5克.和D反应中B与C的质量比是3 不经液氮直接进入超低温冰箱新鲜植物材料欲超低温冰箱保存,不经液氮预冷直接放入超低温冰箱,有什么不利影响? 买浙江省英语3级答案2013.12.15号就要考英语3级了,担心自己过不了啊,谁买过答案并且过得赶紧和我说一下啊!大恩不言谢啊!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘