GetPhoneticを使用した、ふりがなの抽出

EXCEL VBAで
文字列の読みを抽出しようとしています。

VBA
1Sub Macro1()
2    MsgBox yomi("光ファイバケーブル")   'ヒカリファイバケーブル
3    MsgBox yomi("同軸ケーブル")         'ドウジクケーブル
4    MsgBox yomi("STPケーブル")          'ＳＴＰケーブル
5    MsgBox yomi("CPEVケーブル")         'ＣＰＥＶケーブル
6    MsgBox yomi("UTPケーブル")          'ＵＴＰケーブル
7    MsgBox yomi("AEケーブル")           'ＡＥケーブル
8    MsgBox yomi("USBケーブル")          'ウｓｂケーブル
9    MsgBox yomi("ETC")                  'エＴＣ
10End Sub
11
12Function yomi(txt As String)
13    yomi = Application.GetPhonetic(txt) '読みを再変換して出力(全角で出力される)
14End Function

上記 Macro1 を動かした時の結果は
プログラム右のコメントの通りです。

上６つは期待した通りの結果が出力されているのですが、
下２つについては、中途半端に
アルファベットがカタカナに変換されています。

こうなってしまう条件と回避方法を教えて頂ければと思います。
確認できたのは、『USB』と『ETC』ですが他にもあるかもしれません。

関係あるかわかりませんが、この現象が起こっているパソコンのＩＭＥは
『Microsoft Office IME 2010』……らしいです。
(コントロールパネル→(表示方法：大きいアイコン)地域と言語→キーボードと言語タブ→キーボードの変更(C) より確認)

また、複数のパソコンで動かすことが想定される為、
個々の設定が影響しない、解決方法だと嬉しいです。

以上、よろしければご教授願います。

行動規範の内容に同意します

回答2件

ベストアンサー

同じく『Microsoft Office IME 2010』の環境なので試してみました。
どうやらIMEの辞書から変換の優先度が高い順のような気がします。
最初は正確に「USBケーブル」と出力されていましたが、「USBケーブル」というのをわざと「うｓｂケーブル」のように変換させていたら、いつの間にかそれが出るようになりました。
なので、そのように誤変換されているPCは、そのPCを使っている人がそのように誤変換をしてしまった過去があるのではと思います。

結論としては、GetPhonetic関数だけでは複数変換候補がある場合、どれを選択するかは機械では判断できないので、正確な変換は無理です。
ある程度語彙が決まっているのであれば、シートか何かに変換表でも作ってそれに従って変換させた方が確実です。
もしくは手修正を前提とした一次変換として使うのであれば有用です。

投稿2017/11/28 07:48