[XL]VBAでWord 5.0を起動すると日本語入力システムの切替が無効

詳細

現象

VBA を使って Word 5.0 の起動と終了を行うと、 Microsoft(R) Windows(TM) 上で稼動している「日本語入力システム」のオン／オフに対する操作が効かなくなります。
たとえば、Word 5.0 を起動後「ファイル名」を入力させ、そのファイルを印刷後Word 5.0 を終了して Excel 5.0 へ制御を戻すマクロを作成します。

  Sub WordStart()
      Dim FileName As String, DDEChannel As Integer
      FileName = InputBox("ファイル名を入力してください")
      Shell "C:\WORD5J\WINWORD.EXE", 4
      DDEChannel = Application.DDEInitiate("WinWord", "System")
      Application.DDEExecute DDEChannel, "[FileOpen .Name = """ & _
          FileName & """][FilePrintDefault][FileClose 2]"
      Application.DDEExecute DDEChannel, "[FileExit]"
      Application.DDETerminate DDEChannel
  End Sub

マクロ実行後、「日本語入力システム」のオン／オフに対する操作を行っても切り替えができない状態になります。

回避策

マクロを次のように記述します。

      Shell "C:\WORD5J\WINWORD.EXE", 1

また、Word 6.0 では問題ありません。