|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
在VBA中,可以使用以下代码来判断VSTO插件是在WPS还是在Office中运行:
vb
复制代码
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
If Not objShell Is Nothing Then
Dim strAppName
strAppName = objShell.AppName
If strAppName = "WPS" Or strAppName = "IE" Then
' 在WPS或IE浏览器中,或者在Windows系统上使用WPS Office
ElseIf InStr(strAppName, "Word") > 0 Or InStr(strAppName, "Excel") > 0 Then
' 在Office系统中,使用Word、Excel等应用程序
Else
' 其他情况
End If
End If
上述代码使用了WScript.CreateObject方法创建了一个WScript对象,并通过调用其AppName属性来获取当前活动应用程序的名称。然后根据应用程序名称的不同来判断插件是在哪个应用程序中运行。如果应用程序名称为"WPS"或"IE",则说明插件是在WPS或IE浏览器中运行;如果应用程序名称包含"Word"或"Excel",则说明插件是在Office系统中的Word、Excel等应用程序中运行。其他情况则需要根据具体情况进行处理。 |
|