今天晚上写了个获取当前Office版本的函数(原创!)
来源:互联网 发布:linux目录 编辑:程序博客网 时间:2024/05/18 00:09
获取当前Office版本的函数
Private Sub Command1_Click()
MsgBox GetInstalledOfficeVersion()
End Sub
'本函数运行不需要机器上安装过Office
'经典的判断Office版本函数,原创!
'支持到Office 2003
Function GetInstalledOfficeVersion() As String
On Error Resume Next
Dim WD
Dim OfficeVer As String
OfficeVer = 0
GetInstalledOfficeVersion = ""
Set WD = CreateObject("Word.Application.8")
OfficeVer = CStr(WD.Version)
WD.quit
If Not WD Is Nothing Then Set WD = Nothing
If InStr(OfficeVer, "8") <> 0 Then
GetInstalledOfficeVersion = "Office 97"
ElseIf InStr(OfficeVer, "9") <> 0 Then
GetInstalledOfficeVersion = "Office 2000"
ElseIf InStr(OfficeVer, "10") <> 0 Then
GetInstalledOfficeVersion = "Office XP 2002"
ElseIf InStr(OfficeVer, "11") <> 0 Then
GetInstalledOfficeVersion = "Office 2003"
End If
If Err.Number = 424 Then
Err.Clear
GetInstalledOfficeVersion = "没有安装 Microsoft Office"
End If
End Function
'-------------------------------------------
' 转载请注明出处
' 作者:唐细刚
' 邮箱:tanaya@163.com
'-------------------------------------------
- 今天晚上写了个获取当前Office版本的函数(原创!)
- 写了个函数,获取当前登录系统的用户名
- 磨蹭了一下午+晚上,写了个指针版本的splay tree
- 试用版获得手记(二)-- 两款平台对比报告,#个人原创# 写了一个晚上
- 今天晚上去看球了
- 今天晚上捉鱼去了
- 今天写了个function
- 今天晚上加班写程序
- 今天晚上终于回归喜欢的Myeclipse6.5版本,终于没有那么卡了,附上Myeclipse6.5注册破解方法
- 今天写了几个函数
- 用PHP忙了一晚上写的图片缩略和图片等比缩放函数
- 《当程序员的那些狗日日子》(二十三)死在了今天的晚上
- 今天心血来潮,写了个python的小爬虫
- 今天自己写了个无聊的测试
- 今天晚上,学习了地址管理的一点小总结
- 今天晚上的作业 我只能这样发发了!
- 不能安装64位版本的office 2010,因为您当前已经安装了32位的office
- 写了个禁止关闭计算机的模块(原创:唐细刚 2005-5-29)
- 为.Text Blog 添加 计数器
- Java里的一些基础的知识
- Hibernate查询语言:HQL
- JS写的Cookie类
- 听歌http://www.tingsky.net
- 今天晚上写了个获取当前Office版本的函数(原创!)
- 21世纪最COOL的写作方式
- 非走不可的弯路[张爱玲]
- 2005/4.29/狂阵雨
- Gtk+/Gtkmm介绍与安装
- jstl 在tomcat5以及webSphere上的部署
- 利用XML进行GUI设计与运行时显示------基于GTK+/Gtkmm的Glade/libglade/libglademm
- tomcat 的不同jsp/servlet 版本
- 另一个MVC框架------基于Gtkmm/libglademm的bakery