|
富士通のかな漢字変換ソフトの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
|
|