![]() Private Function GetEdition2000(ByRef strSku As String) As StringĬase "00": GetEdition2000 = "Microsoft Office 2000 Premium Edition CD1"Ĭase "01": GetEdition2000 = "Microsoft Office 2000 Professional Edition"Ĭase "02": GetEdition2000 = "Microsoft Office 2000 Standard Edition"Ĭase "03": GetEdition2000 = "Microsoft Office 2000 Small Business Edition"Ĭase "04": GetEdition2000 = "Microsoft Office 2000 Premium CD2"Ĭase "05": GetEdition2000 = "Office CD2 SMALL"Ĭase "06" To "09", "0A" To "0F": GetEdition2000 = "(reserved)"Ĭase "10": GetEdition2000 = "Microsoft Access 2000 (standalone)"Ĭase "11": GetEdition2000 = "Microsoft Excel 2000 (standalone)"Ĭase "12": GetEdition2000 = "Microsoft Front0 (standalone)"Ĭase "13": GetEdition2000 = "Microsoft PowerPoint 2000 (standalone)"Ĭase "14": GetEdition2000 = "Microsoft Publisher 2000 (standalone)"Ĭase "15": GetEdition2000 = "Office Server Extensions"Ĭase "16": GetEdition2000 = "Microsoft Outlook 2000 (standalone)"Ĭase "17": GetEdition2000 = "Microsoft Word 2000 (standalone)"Ĭase "18": GetEdition2000 = "Microsoft Access 2000 runtime version"Ĭase "19": GetEdition2000 = "FrontPage Server Extensions"Ĭase "1A": GetEdition2000 = "Publisher Standalone OEM"Ĭase "1D" To "1F": GetEdition2000 = "(reserved standalone SKUs)"Ĭase "20" To "29", "2A" To "2F": GetEdition2000 = "Office Language Packs"Ĭase "30" To "39", "3A" To "3F": GetEdition2000 = "Proofing Tools Kit(s)"Ĭase "40": GetEdition2000 = "Publisher Trial CD"Ĭase "41": GetEdition2000 = "Publisher Trial Web"Ĭase "46": GetEdition2000 = "Web Components"Ĭase "47": GetEdition2000 = "VP Office CD2 with LVP"Ĭase "48": GetEdition2000 = "VP PUB with LVP"Ĭase "49": GetEdition2000 = "VP PUB with LVP OEM"Ĭase "4F": GetEdition2000 = "Access 2000 SR-1 Run-Time Minimum" VbNewLine & "Error Desc: " & Err.Description GetEdition = "Post Office 2013: " & strERR_MSG GetEdition = "Pre Office 2000: " & strERR_MSG If you know a better way then please let me know.Ĭonst strERR_MSG As String = "Unable to determine edition" As far as I know, there isn’t a native member in the Excel object model which will tell you the Office edition, so I derive it by using the application version and product code (GUID). I’m not sure why this would be useful (perhaps to show as information on a userform?) but I duly obliged by writing the below code which I have now updated to handle Office 2013. A few years ago a user asked how to use VBA to determine the edition of the active session of Office. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
January 2023
Categories |