141.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

在引用项目找不到Excel、Word等Office软体Lib的解决法

●底下有些文章是如何把资料丢到Office软体来帮我们列印，为了加快程式的开发速度，小瓜瓜会选择载入Lib的方式来把应用程式当成VB的一部份，只要在物件后打个点，所有方法属性就列出来，不用死背也不用看VBA的说明档，但有些网友是使用其它版本的Office，可能会找不到Lib可以来引用，该如何解决？
●底下是没有引用Lib来控制Office软体的方法：
○Word 
(一般) 
Dim MyDocApp As Object 
Private Sub Command1_Click() 
Set MyDocApp = CreateObject("Word.Application") 
MyDocApp.Visible = True 
End Sub
○Excel 

(一般) 
Dim MyXlsApp As Object 
Private Sub Command1_Click() 
Set MyXlsApp = CreateObject("Excel.Application") 
MyXlsApp.Visible = True 
End Sub
○PowerPoint 

(一般) 
Dim MyPptApp As Object 
Private Sub Command1_Click() 
Set MyPptApp = CreateObject("PowerPoint.Application") 
MyPptApp.Visible = True 
End Sub