Ｐａｇｅ 618 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ふりがな変換 ビバ!ジャイアンツ 04/4/20(火) 16:41 ┣Re:ふりがな変換 クロ 04/4/20(火) 18:35 ┗Re:ふりがな変換 Gin_II 04/4/20(火) 22:43 ┗Re:ふりがな変換 ビバ!ジャイアンツ 04/5/10(月) 13:56 ─────────────────────────────────────── ■題名 ： ふりがな変換 ■名前 ： ビバ!ジャイアンツ <t1312865@hotmail.com> ■日付 ： 04/4/20(火) 16:41 -------------------------------------------------------------------------
| Accessのテーブルデザインで、テキスト形式のデータに対し、そのふりがなを別のフィールドに表示させる機能がありますが、直接入力した文字に対してはふりがなに変換する事が出来ますが、コピー＆ペーストによるものや、VBAでテーブルを操作する事による変換方法は無いでしょうか。もしくは、ひらがなをカタカナ、カタカナをひらがなにする事は出来ても、漢字のふりがなへの自動変換というのは出来ないのでしょうか。よきアドバイスをお願いします。 |
| 試してみましたがコピペでもふりがな変換しました。 環境：Access2002 SP3 Win2000Pro SP4 |
| > VBAでテーブルを操作する事による変換方法は無いでしょうか。 Function usGetPhonetic(moji As String) As String Dim objExl As Object Set objExl = CreateObject("Excel.Application") usGetPhonetic = objExl.GetPhonetic(moji) End Function 標準モジュールに、上記のように作成しておけば、可能ですね。 他にも、API を使った方法もあるみたいです。 ただし、思ったとおりのふりがなが取得できるわけではないと 思いますが。 |
| ▼Gin_II さん： >> VBAでテーブルを操作する事による変換方法は無いでしょうか。 > >Function usGetPhonetic(moji As String) As String > Dim objExl As Object > Set objExl = CreateObject("Excel.Application") > usGetPhonetic = objExl.GetPhonetic(moji) >End Function > >標準モジュールに、上記のように作成しておけば、可能ですね。 >他にも、API を使った方法もあるみたいです。 > >ただし、思ったとおりのふりがなが取得できるわけではないと >思いますが。 ありがとうございます。ぜひ参考にさせていただきます。 |