投稿日 | : 2003/08/22(Fri) 05:18 |
投稿者 | : おじん |
URL | : |
タイトル | : Re^6: エクセルを利用してふりがな取得(解決) |
他のサイトで知ったサンプルを元に、
あらかじめ読み込まれたテキスト(RichTextBox1)を変換文字をマウスで指定して、
その「漢字混じりの文字列」を「ひらがな変換」することをしようとしています。
変換後の文字はText1に表示しています。
Private Sub RichTextBox1_MouseUp( _
Button As Integer, Shift As Integer, _
X As Single, y As Single)
'
Dim selTxt$
selTxt = RichTextBox1.SelText '選択された文字
RichTextBox1.SelColor = vbRed '色を付ける
Dim IME98 As New MSIMEJPN
Dim MyIME As IFELanguage
On Error GoTo ErrorTrap
Set MyIME = IME98
MyIME.Open
Text1 = MyIME.GetPhonetic(selTxt,1,-1)
MyIME.Close
Set MyIME = Nothing
Set IME98 = Nothing
Exit Sub
ErrorTrap:
Msgbox "...error......?" & Hex(Err.Number) & Err.Source
End Sub
不安定とは、上記操作を何度か繰り返していると、「オートメーションエラー」に
なります。10数回エラーにならずに正常に変換されることもあります。
この件はすでに「そのサンプルのあったサイト」でアドバイスをいただき、
「MSIME.tblとMSE-IEのVersionを調べてみるように」とのことです。
しかし残念ですが調査方法もわからずじまいです。
> APIを使って よみがなの候補すべて取得する方法もありますが。
仕様が決定してはいないのですが、今のところ「候補すべて取得する」方法は
少し効率が悪いと考えています。