文書番号: 402396
最終更新日: 1997/11/27
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 では問題ありません。
Keywords: KBBUG KB402396
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch