以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何用代码获取office的安装目录?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=155800)

--  作者:爱好所有
--  发布时间:2020/9/27 11:06:00
--  如何用代码获取office的安装目录?
 因为电脑同时安装有WPS和Office,默认是WPS,但有些文件有宏要office打开才正常,用绝对路径是没有问题的,但不是每台电脑安装目录都一样,我要怎么用代码获取office的安装目录呢?谢谢了!!
--  作者:有点蓝
--  发布时间:2020/9/27 11:21:00
--  
Dim regKey = Microsoft.Win32.Registry.LocalMachine
Dim regSubKey = regKey.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Winword.exe", False)
Dim objResult = regSubKey.GetValue("Path")
msgbox(objResult )

--  作者:爱好所有
--  发布时间:2020/9/27 14:33:00
--  
 谢谢