Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


112 / 308 ツリー ←次へ | 前へ→

【546】WIN−API でjapanist一括単語登録を行うには? おやじ 07/11/13(火) 21:02 質問[未読]

【546】WIN−API でjapanist一括単...
質問  おやじ  - 07/11/13(火) 21:02 -

引用なし
パスワード
   富士通のかな漢字変換ソフトのjapanistをwordで使う場合に、word−vbaで、以下のようにしてAPIのImmRegisterWordを呼び出すと、非ゼロが返されて呼び出しは成功するのですが、japanist内で起動された辞書編集プログラム(ツールバーに表示されるのでわかる)から、
「起動パラメータの指定に誤りがあるため実行できません」というエラーメッセージが返されて、単語登録が成功しません。
対策を教えてください。

−−以下プログラム−−−−−−−−−−−−−−−−
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function ImmGetRegisterWordStyle Lib "imm32.dll" Alias "ImmGetRegisterWordStyleA" (ByVal hKL As Long, ByVal nItem As Long, lpStyleBuf As STYLEBUF) As Long
Private Declare Function ImmRegisterWord Lib "imm32.dll" Alias "ImmRegisterWordA" (ByVal hKL As Long, ByVal lpszReading As String, ByVal dwStyle As Long, ByVal lpszRegister As String) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub TangoTouroku ()
  hKL = GetKeyboardLayout(0)
    strYomi = "ほにゃら"
    strKanji = "これはテストです"
    strStyle = 9 '品詞は一般名詞で固定
    rc = ImmRegisterWord(hKL, strYomi, strStyle, strKanji)
    Debug.Print rc
End Sub

112 / 308 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
207136
(SS)C-BOARD v3.8 is Free