Find out which language version of Word is installed (Views: 715)
Problem/Question/Abstract: How can I get the language of an Office installation? I need to add a new menu item, but the captions are Office language dependent (File - English, Archivo - Spanish, etc. ) Answer: { ... } MsWord := CreateOleObject('Word.Basic'); try {Return Application Info. This call is the same for English and French Microsoft Word.} Lang := MsWord.AppInfo(Integer(16)); except try {For German Microsoft Word the procedure name is translated} Lang := MsWord.AnwInfo(Integer(16)); except try {For Swedish Microsoft Word the procedure name is translated} Lang := MsWord.PrgmInfo(Integer(16)); except try {For Dutch Microsoft Word the procedure name is translated} Lang := MsWord.ToepasInfo(Integer(16)); except {If this procedure does not exist there is a different translation of Microsoft Word} ShowMessage('Microsoft Word version is not German, French, Dutch, Swedish or English.'); Exit; end; end; end; end; ShowMessage(Lang); { ... } |