Option ExplicitDim xlsApp As Excel。ApplicationDim wrdApp As Word。Application 只要相关的对象库已经被选择，在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8。0对象库是相对于Excel的，而 Microsoft Word 8。0 对象库是为Word服务的。
在VB的IDE环境中，从“工程”菜单中选择“引用”，可以看到系统可用的所有库列表。
Private Sub Command1_Click() Set xlsApp = Excel。Application With xlsApp ´Show Excel 。Visible = True ´Create a new workbook 。Workbooks。Add ´Put text in to the cell that is selected 。ActiveCell。Value = "Hi" ´Put text into A3 regardless of the selected cell 。Range("A3")。Value = "This is an example of connecting to Excel" End WithEnd Sub 在上面的程序段中，我们在变量xlsApp中建立了一个对象，这样Excel就对用户可见了。当Excel象这样启动后，并不包含一个工作簿，所以必须创建或者执行打开操作。这里，我们建立了一个新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。
Private Sub Command2_Click() ´close the workbook xlsApp。Workbooks。Close ´Close Excel xlsApp。QuitEnd Sub 上面这段代码执行关闭程序的功能。首先，关闭工作簿，这将出现一个提示对话框，询问用户是否想保存修改；然后，退出应用程序。
Private Sub Command3_Click() Set wrdApp = New Word。Application With wrdApp ´Show Word 。Visible = True ´Create New Document 。Documents。Add ´Add text to the document 。ActiveDocument。Content。Text = "Hi" 。ActiveDocument。Content。Text = "This is a test example" End WithEnd Sub 上面这段代码中，在变量wrdApp中设置引用Word程序的对象。同样，当Word按照这种方式启动后，不会包含一个文档，所以，必须执行建立或者打开操作。这里是建立了一个新文档，然后可以操作其中的信息了，打印,保存,发送邮件，等等。。。
但是，在Word文档中放置文本并非容易！特别是与Excel一起工作时。为了简单地在特定的地方放置文本，需要有一个bookmark标记。这意味着，需要事先建立一个模板。
Private Sub Command4_Click() ´Close the current document wrdApp。ActiveDocument。Close ´Close Word wrdApp。QuitEnd Sub 上面这段代码的功能是关闭应用程序。首先，关闭当前文档，这时可能需要用户保存修改。然后，退出程序。
Private Sub Form_Unload(Cancel As Integer) ´Clear the memory Set xlsApp = Nothing Set wrdApp = NothingEnd Sub 最后一段代码就是关闭VB应用程序。这是优秀程序员编程的好习惯。
Well I hope this brief tutorial is helpful。 It does not touch on much of what you can do to the office applications once they´re open, but should give you an idea of how to get started。
好了，简单的介绍到此结束。我希望能抛砖引玉，让你更加随意地操作Office应用程序！