如何调用 Office97

　　VB不能像Word97那样进行拼写检查，不能像Excel97那样具有很多的函数。如果我们能将Word97和Excel97的功能使用在VisualBasic5.0中，就可以使VB达到锦上添花的目的。
我们知道所有Office97应用程序都提供了ActiveX对象，我们可以在VisualBasic5.0中使用它们。
调用Word97
要想在VB中调用Word97，首先要打开VB的“工程”菜单中的“引用”项目，并在该项目对话框中选定“MicrosoftWord8.0ObjectLibrary”就可以了。
下面我们举例说明调用Word97中的“拼写检查”和“单词统计”功能。首先新建一个工程并在窗体上放置一个TextBox控件和两个CommandButton控件，然后添入如下的代码：
OptionExplicit
DimDocAsNewDocument
DimVisiAsBoolean
'调用Word97拼写检查
**SubCommand1_Click()
Form1.Caption="拼写检查"
Doc.Range.Text=Text1'确定范围
Doc.Application.Visible=True'将Word97变为可见
AppActivateDoc.Application.Caption'激活Word97
Doc.Range.CheckSpelling'拼写检查
Text1=Doc.Range.Text
Text1=Left(Text1,Len(Text1)－1)
AppActivateCaption
EndSub
'统计单词数
**SubCommand2_Click()
DimDlgAsWord.Dialog
Doc.Range=Text1.Text
SetDlg=Doc.Application.Dialogs(wdDialogDocumentStatistics)
Dlg.Execute'统计单词和字符
Form1.Caption="单词数:"＆Str(Dlg.Words)＆"词"＆Str(Dlg.Characters)＆"字符"'显示统计结果
EndSub
**SubForm_Load()
Form1.Caption="调用Word97"
Text1.Text=""
Command1.Caption="拼写检查"
Command2.Caption="统计单词"
Visi=Doc.Application.Visible'使应用程序可见
EndSub
'关闭应用程序
**SubForm_Unload(CancelAsInteger)
IfVisiThen'关闭文件
Doc.Closesavechanges:=False
Else
Doc.Application.Quitsavechanges:=False'关闭Word97
EndIf
EndSub
调用Excel97
使用ExcelSheet对象的技术可以处理可变数量的数据，并将结果最后送到你的VisualBasic应用程序中。例子如下：
新建一个工程并在新建的窗体上放置两个TextBox和一个CommandButton及六个Label。
程序代码如下：
OptionExplicit
**SubCommand1_Click()
DimxObjectAsObject
'调用Excel97
SetxObject=CreateObject(“Excel.Sheet")
SetxObject=xObject.Application.ActiveWorkbook.ActiveSheet
xObject.Range(“A1").Value=Text1.Text'将数值送入Excel97的A1单元格
xObject.Range(“A2").Value=Text2.Text'将数值送入Excel97的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
SetxObject=Nothing
EndSub
**SubForm_Load()
Text1.Text=""
Text2.Text=""
Label1.Caption=""
Label2.Caption=""
EndSub
该程序的作用是：首先在两个文本框（Text1和Text2）输入数值并分别将输入的数值送入Excel97的“A1”和“A2”单元格中，然后用Excel97中的“Max()”函数将计算的结果送入“A3”单元格中用反正切函数“ATAN()”进行计算并将结果送入“A4”单元格中，最后输出。