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

VB如何调用 Office

HTML文档下载 WORD文档下载 PDF文档下载
VB如何调用 Office
调用Office97技巧

  VB不能像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

'调用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


调用Excel 97

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

  新建一个工程并在新建的窗体上放置两个TextBox和一个CommandButton及六个Label。
  程序代码如下:

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中数据库报表加网格 用Delphi4的QReport部件生成报表 用Delphi编写打印程序的窍门 用Word做Delphi报表输出工具 在DELPHI 文 本 和 图 形 的 打 印 在Delphi中运用QuickReport实现多栏列印 在打印或打印预览前如何获取报表页数-Delphi资料 自定义快速报表的打印预览窗口-Delphi资料 Delphi 3 图形VCL中Bug修改方案 Delphi hint的字体和色彩如何改变 Delphi3.0中复活节彩蛋及实现 Delphi数据库应用程序开发中图像数据的存取技巧 DELPHI图形编辑技巧二则 DELPHI显示JPEG图像文件 Delphi中CANVAS使用三例 Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 在一台计算机上安装两个键盘同时接受输入的问题 对XML文档中的数据能不能进行SELECE操作???? 如何用JAVA实现263邮件那样的邮件粘贴功能 请教各位大哥,小弟最近遇到麻烦,为什么我的程序安装时,出现expsrv.dll无法注册的提示?expsrv.dll有什么作用?怎样闭掉? 如何在两个结构相同的库之间倒数?? 请问如何简单确定右键点击的是哪个控件? 有哪位高手可以给出windows98登录时网络服务的身份验证模块的程序或相关资料的呢?非常感谢啦 在CTreeCtrl中同时使用系统图标与自定义图标的问题?? SHGetFileInfo()为什么在Win2000下工作不正常? 请问高手:DataGrid的问题 jsp和servlet是怎样交互的? 请问 有什么方法能实现 在几个数中随机取出几个数 谢谢 请问:在执行文件DPR中有一段代码出现错误,请各问指点! 两个问题:1 关于.NET中 一个新控件propertyGrid1的使用问题;2 我想生成一个由lable和TextBox合成的控件(label在左,TextBox靠其右),怎么办? 分栏打印 依旧是undefined function mysqsl_connect()问题 急:如何在生成的exe中添加新的属性页,显示更多文件信息? V-DVD ROM!? MSDN上的例子需要uafxcwd.lib,怎么找不到呢? 请问窗口的other事件是如何触发执行的 JSP如何学习 vc在什么时候会引起小喇叭的叫声 请教高手,如果在VB里实现内存共享? 用什么方法可以转换图片类型?譬如将BMP格式的转换为JPEG格式的,请各位大哥给点提示!!! 关于vb script数组和函数功能的二个问题!高难度! 关天打印问题? 只能最小化到屏幕的左下角 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm (有关XMLHTTP) 在php中要取出一段字符串的前n个字节,而又要判断最后一个是中文还是英文,如果是中文则将最后半个字符省略应该怎么做? 有在BCB5中用过sapi5朗读中文的朋友,高分送上! 最初级的问题,关于编译程序的。 重庆市信息产业办公室荣获全国最差信息产业办公室称号 大家用PB创建Jaguar应用程序时,一般创建一个大包还是多个包阿? 奇怪的问题,来者有分!没回答问题的先到先得! 如何把临时表建在内存中 请教一个关于DELPHI多线程的问题 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm(有关XMLHTTP) 比爱情少一点,比友情多一点,即不讨厌又不来电,你能做到吗? 请教一个问题,一个分两帧的窗口,分别是两个CView的子类。一个view里的下拉框选中一条记录,使另一个view刷新。不知道用什么mfc函数。 有关新开窗口的问题! please intrduce a good muti-root soft for win95,win98,winme,win2000,winxp 求助:哪位大侠能介绍一下网络传输设备(象 HDSL、Cable Modem)的品牌、厂家和性能? 我的ie浏览器怎么了? 搞软件开发时应不应该是一边看书一边搞开发? 请教:C中的共同体是什么?谁能解释一下或举例说明 关于线程套间问题。 请教各位在oracle中如何在date字段下条件? Window me对ADO是不是支持的不够好??? 请问csdn.net使用shtml如何构架的! 安装Acrobat后,只出现一个PDF Writer虚拟打印机,Adobe Distiller却死活装不上,不知是何原因? sybase anywhere5.0 支持 mid 函数吗,如果支持该怎么写 “每相邻两个计量单位之间的进率都是10”这句话对不对?这是一道数学判断题.请快点回答, 练习4:物体静止在水平桌面上,物体对水平桌面的压力( )练习4:物体静止在水平桌面上,物体对水平桌面 的压力( ) (1)就是物体的重力 (2)大小等于物体所受重力的大小 (3)此压力是由于桌面的 如何用激光笔证明桌面受力后发生了形变这是一道初三物理实验题, 放在桌上的苹果会不会发生形变,苹果对桌面的压力实质是什么 形容很无奈的诗句.他到失去了才懂得珍惜我,但他的死性不改让我很无奈 摩擦力是不是弹力摩擦力也有弹性形变 放在桌面上的苹果为什么会发生形变?不是说相互接触的物体不一定发生形变吗? 求:形容一个人不懂得珍惜或失去后才懂得挽留的词语或成语,谢咯~如上, 解释一下"茶杯对桌面的压力是由于茶杯发生形变而产生的" 所有压力都是因为形变而产生的吗? 放在桌上的苹果会不会发生形变,苹果对桌面的压力实质是什么 形容不懂得珍惜而后悔的诗句 杯子形变? 刚体力学问题.一个质量1000kg半径R的圆形水平转台可绕通过其中心的光滑竖直轴转动,一质量80kg的人站在转台边缘,当人沿转台边缘走完一周时,求转台对地面反向转过的角度。答案给是0.07 坐电梯是做的是平移运动.( ) 判断一下错对.呵呵,标准答案是:为孩子想不通, 为什么说“弹力和摩擦力在本质上由电磁力引起”? 物体A重120N,在重力为Gb的物体B的作用下在水平桌面上做匀速直线运动,A与桌面之间的摩擦力为f.如果在A上加一个水平向左大小为180N的拉力F,物体B匀速上升,则下列选项正确的是(不计摩擦、绳 《蝉》古诗中感受到了作者怎样的思想感情垂緌饮清露,流响出疏桐。居高声自远,非是藉秋风。 下列说法正确的是?A,木块放在桌面上对桌面的压力是由于 木块发生微小形变而产生的 B,木块放在桌下列说法正确的是?A,木块放在桌面上对桌面的压力是由于木块发生微小形变而产生的B,木块 个,十,百,千,万都是计数单位,每相邻两个计数单位之间的进率都是什么啊? 在古诗词中的夏天 体会到了作者怎样的情感? 接触力按性质可归纳为弹力和摩擦力,他们本质上都是由电磁力引起的为什么是由电磁力引起的?分子力都是属于电磁相互作用吗? 质量为10kg的物体放在水平桌面上,水平匀速拉动物体时,摩擦力是物体所受重力的0.2倍,g取10N/kg,求,此时物体受到几个力的作用,物体受到每个力的大小? 古诗词、阅读短文表达情感归纳古诗词或阅读短文表达了作者怎样的感情?比如对美好生活的向往、开心、悲伤 10和100的计数单位各是多少?百位、十位、个位都说清楚 2、3、4判断题且说明原因 丢怎么组词 十位的计数单位是什么 求(2)(3)(4),这是判断题.请告诉我错的话错在哪里. 判断题:经过一点可以画出无数个圆.究竟是对还是错? 0.80的计数单位是?他有几个这样的计数单位? 判断题的2.3.4.5题,虽然知道答案但不知道为什么. 判断题##(对的画√错的画×)1.等腰直角三角形中的三个内角比是1:1:2 ()2.三角形只有三条边 ()3.有有共同顶点的两条射线可以构成一个角 ( ) 一个木块平放在水平面桌面上这个状态一共有几个弹力 木块和桌面都有发生形变吗 牛顿第二定律 如何平衡摩擦力就是先把木板垫高,然后捏.就没了?就是说我怎么知道摩擦力已经平衡了?打点计时器?弹簧测力计? 重力为10N的物体放在水平桌面上,在F=3N水平向右的作用力下匀速向右运动,撤去拉力后,物体还会想( )滑此时桌面对物体的摩擦力的大小是( ),方向是( ),物体停下后受到的合力为( ) 数学判断题:判断对错1.观察条形统计图的时候,可以根据直条的高低或长短来判断数量的多少.2.在2 3 8 5 2 6 7 2 4这一组数中,它的中位数是4,众数是2. 验证牛顿第二定律,平衡摩擦力后长木板位置不能移动,为什么呢? 大物体在水平桌面上,G的重力为5N,拉着物体匀速向右移动,求滑动摩擦力.A处拉着物体匀速向左运动,求拉力大小 判断题.正确的画“∨”,错误的画“×”,并订正.(1)三角形的面积等于平行四边形面积的一半.…………………………………( )(2)两个完全一样的梯形可以拼成一个平行四边形.……… 一本书静止与水平桌面上,书受到()力的作用.()和()是一对平衡力,()和()是作用和反作用力 请问判断题在数学顺序表中两个相邻单位之间的进率都是10对还是错 英语翻译难道没人会吗? 力学:桌面对静止放在桌面上的木块的支持力与什么是平衡力?又与什么是作用反作用力?桌面对木 摩擦力是压力还是重力?压力是重力?如果一个物体重10N那他的什么力是10N 如图,判断题 一本物理书静止放在水平桌面上,桌面对书有支持力.与该支持力相平衡的力是 与该支持力是相互作用的力是如何辨别相互作用力和平衡力能给出力的示意图么??不懂两个力的作用点分别 一物体静止在水平桌面上,重力为50N,如果用20N的水平力向东拉它,它受到的摩擦力是20N对吧?为什么呢?20N的水平力向东拉它,它仍静止在水平桌面上。 数学判断题(3道)脱式计算(2道)解决问题(1道)判断:1.一个小数3.012先把它扩大10倍后,再缩小到它的1/100,小数的大小不变.()2.能被2整除的数都是合数,不能被2整除的数都是质数.()3.一个半圆的直径 刚体力学一个比较有难度的题目一刚体细棒,长为L,质量为M,水平放置在光滑水平面上.水平面上有一垂直于平面的钉子,穿过细棒上一光滑的小孔.现在棒的一段给予一冲击(作用时间很短),如 一个七位数,它的最高位是最小的和数.万位上的数是自然数的计数单位,十位上的数是0.5的倒数,其它(见下面其它各位上的数都是0,这个数是? 请珍惜眼前这个人用英语怎么说"请珍惜眼前这个人"用英语怎么说? 问一题关于大物刚体力学的问题 物体静止在水平桌面上,物体对水平桌面的压力( )A.就是物体的重力B.大小等于物体的重力C.是由于地球的吸引而产生的D.方向是竖直向下的尤其是CD两项!D中方向难道不是竖直向下的吗?】 珍惜爱你的人和你爱的人五百次的回眸才能换来今生的擦肩而过.可以一秒钟遇到一个人,一分钟认识一个人,一个小时喜欢上一个人,一天时间爱上一个人,但是却要用一辈子去忘记一个人.如果, 请问每相邻的两个计数单位之间的进率都是()这种计数方法叫做()计数法谢谢! 物体静止在水平桌面上,物体对桌面的压力()A这个压力是由于地球的吸引而产生的B这个压力是由于物体形变而产生的是A对还是B对? “珍惜眼前的幸福”怎么翻译成英文? 大一刚体力学的题,急 第二问,为什么2Fh/2=(mg+ma)d,重力和a的方向不是相反吗?不应该是个、(mg-ma)d吗第二问,为什么2Fh/2=(mg+ma)d,重力和a的方向不是相反吗?不应该是个、(mg-ma)d吗 .静止在水平桌面上的物体,对水平桌面的压力? . 这压力是由于桌面的形变而产生的 错在哪里? 什么是计数单位?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn