发信人: yuchix()
整理人: winsy(2003-03-05 16:27:58), 站内信件
|
Function IsWordInstalled() As Boolean
Dim oApp As Object
On Error Resume Next
Set oApp = CreateObject("Word.Application")
If oApp Is Nothing Then
IsWordInstalled = False
Else
Set oApp = Nothing
IsWordInstalled = True
End If
End Function
其它用下列 ProgID 即可：
Excel.Application
Access.Application
Outlook.Application
PowerPoint.Application
--
網易彩色簽名檔生成器
令你的簽名更出色
http://go.163.com/~yuchix/BBSNNint.zip
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.137.177]
|
|