Macro to change the word language

ADAL · #1 12-27-2023, 12:16 PM

CAN ANYBODY TELL MEHOW TO MAKE A MACRO THAT CHANGES THE WORD DISPLAY LENGUAGE TO SPANISH (INSTEAD OF CLICKING FILE>options>language>spanish>set as prefered,

Application.LanguageSettings.LanguageID(msoLanguag eIDUI)
is read only
thanks

vivka · #2 12-28-2023, 06:24 AM

Hi, Adal! Try this (for Office 16), although I'm not sure about es-es:

Code:

Sub Office_Prefd_Lang_Esp()

  CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\LanguageResources\PreferredEditingLanguage", "es-es", "REG_SZ"
End Sub

After running the code, restart Word.

Italophile · #3 12-28-2023, 07:32 AM

Quote:

Originally Posted by vivka

Hi, Adal! Try this (for Office 16), although I'm not sure about es-es:

Code:

Sub Office_Prefd_Lang_Esp()

  CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\LanguageResources\PreferredEditingLanguage", "es-es", "REG_SZ"
End Sub

After running the code, restart Word.

You've misunderstood the question. The OP wants to set the display language, not the editing language. If you had checked the documentation for LanguageSettings.LanguageID you would have understood.

Registry settings can also be written using VBA without resorting to Windows Scripting. Application.System has a property, PrivateProfileString, that can be used to write to the registry, or to an INI file.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
install language and macro language	rgros	Word VBA	6	04-08-2021 01:38 AM
How to change alphabetical order in Word for sorting in a foreign language	BobK	Word Tables	1	12-01-2017 05:17 PM
Macro to change language and untick 'do not check spelling'	William E	PowerPoint	2	05-13-2017 01:47 PM
Word macro - remove shading from active para. and assign language to it, keep text cursor position	dejanm83	Word VBA	3	03-19-2017 02:36 PM
prevent Word 2010 from changing spelling language when I change keyboard layout	CSurghi	Word	7	04-01-2016 10:54 AM