怎样用VBA将“默认输入语言”设为“英语(美国)”？

ssq1109

如果是手动：进入输入法设置，在“文本服务和输入语言”选项卡中，在“常规”下可设置“默认输入语言”，一般为“中文(简体，中国)”，可重设成“英语(美国)”。
我现在不是要手动设置，而是要在VBA中先将“默认输入语言”设为“英语(美国)”，然后再切换成“中文(简体，中国)”（如不切换回中文语言，复制了全角字符再粘贴出来是乱码），应怎么做？我先的思路是通过修改注册表键值，但要重启电脑才能生效。
注意，我的要求不是切换输入法为英文。

zpy2

在VBA中先将“默认输入语言”设为“英语(美国)”，然后再切换成“中文(简体，中国
等于说没切换？为啥要这样子啊？

ssq1109

zpy2 发表于 2019-5-22 09:21
在VBA中先将“默认输入语言”设为“英语(美国)”，然后再切换成“中文(简体，中国
等于说没切换？为啥要这 ...

是先临时设为“英语(美国)”，等程序运行一会，再切换成“中文(简体，中国)”。

lss001

详细见以下楼！！！

ssq1109

lss001 发表于 2019-5-22 10:47
每次修改完注册表之后,可利用SHChangeNotify函数来刷新系统，避免重启系统的麻烦！
Private Declare Sub ...

网上到处都是转的这个方法，我早试过，无效。且你贴上来的代码有2处掉了空格，粘贴上来肯定是红色的（有误）。

lss001

Sub zcbsrfs()
    Set ws = CreateObject("wscript.Shell")
    ky = "HKCU\Software\Microsoft\InputMethod\Settings\CHS"
    Shell "cmd.exe /c reg add " & ky & " /v ""Default Mode"" /t reg_dword /d 1 /f"
   SendKeys "~" '修改注册表默认至英文输入模式
    If IMEStatus = 1 Then SendKeys "^ " '刷新输入模式
    For i = 1 To 1000: DoEvents: Next  '响应事件

    Stop '此处暂停代码运行, 先检查系统是否改变至英文输入模式！

    Shell "cmd.exe /c reg add " & ky & " /v ""Default Mode"" /t reg_dword /d 2 /f"
    SendKeys "~" '修改注册表默认至中文输入模式
    If IMEStatus = 2 Then SendKeys "^ " '刷新输入模式
End Sub

ssq1109

lss001 发表于 2019-5-22 17:43
Sub zcbsrfs()
    Set ws = CreateObject("wscript.Shell")
    ky = "HKCU\Software\Microsoft\InputMe ...

谢谢您！
你的代码我在Word 2007下的VBA中和VB6中均通不过。
在VBA中报错截图：（上）
在VB6报错截图：〔下，错误指向：Application.Wait Now + TimeSerial(0, 0, 2)〕

lss001

Application.Wait Now + TimeSerial(0, 0, 2)
此句只适合excel
楼上代码已经更改为适应Word

ssq1109

lss001 发表于 2019-6-10 10:48
Application.Wait Now + TimeSerial(0, 0, 2)
此句只适合excel
楼上代码已经更改为适应Word

没作用。我用修改注册表的方法可以，就是不能刷新。
     '修改注册表,设置输入语言为“EN 英语(美国)”
      Set wso = CreateObject("WScript.Shell")
          wso.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\Language\Default", "0409"

lss001

注册表修改后也可用以下代码刷新！

SendKeys "~" '确定修改
For i = 1 To 1000: DoEvents: Next '响应事件