If you'd prefer to just download a workbook with the code in it, here you go.
If InStr(arrEntryNames(x), "2019") > 0 Then If InStr(arrEntryNames(x), "365") > 0 Then RegistryObject.EnumValues &H80000001, keyPath, arrEntryNames, arrValueTypes Set registryObject = GetObject("winmgmts:!\\" & rootDirectory & "\root\default:StdRegProv") KeyPath = "Software\Microsoft\Office\" & CStr(Application.Version) & "\Common\Licensing\LicensingNext" 'Written by Ken Puls (Dim registryObject As Object Function to check the application version in Modern Office So anyone with Office 365 installed should receive 365 as a return, otherwise you'll get a four digit number representing the version you have installed. It's purpose is fairly simple: Test the application and see if it is a perpetual license or a subscription install, and return the version number. Given that, I've pulled together this function. While I haven't tested with other SKUs, this would seem to indicate a pattern I hope we can rely on. And even better, that key holds values like "O365ProPlusRetail" vs "Office2019ProfessionalPlus". So how can we check the application version in modern Office?Īfter doing a little digging, I finally found a registry key that seems to appear in Office 2019 and Office 365, but does not exist in Office 2016.
I needed to find a way to programatically enumerate whether a user is running Office 2016, Office 2019 or Office 365, as I had to do something different in each case. This past week I ran into a scenario where I needed to do exactly this. As there are now things that work differently for Office 365 than the perpetual licenses, this is another potential problem for developers. (Bastien discusses this i n a blog post a few months ago.) But worse, while he focuses on 2016 vs 2019, there is also no way to test between these and Office 365 subscription versions. From Office 2016 onwards, Microsoft has not revved the Application.Version number - they all show as 16.0 - giving you no way to differentiate between versions. But then Office 365 came out, and 2019, and things fell apart.Ĭonducting a check of the application version in Modern Office is not as straight forward.
You just used a little test of Val(Application.Version) to return the number. In the good old days, it was easy to check the application version in Office with VBA.
0 kommentar(er)
