<コード>
Sub InitCha()
Set oCha = CreateObject("ComCha.ChaSen")
★oCha.Init ("-j -r ""c:\program files\chasen21\dic\chasenrc"" -F
%M\t%Y\t%H\t%P-\n")
End Sub
色々と調査したら★で異常終了しているようなんで
Sub InitCha()
Set oCha = CreateObject("ComCha.ChaSen")
MsgBox oCha.Init("-j -r ""c:\program files\chasen21\dic\chasenrc"" -F
%M\t%Y\t%H\t%P-\n")
End Sub
返却値は「0」でした。