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

Question

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

Sub Macro1()
    MsgBox yomi("光ファイバケーブル")   'ヒカリファイバケーブル
    MsgBox yomi("同軸ケーブル")         'ドウジクケーブル
    MsgBox yomi("STPケーブル")          'ＳＴＰケーブル
    MsgBox yomi("CPEVケーブル")         'ＣＰＥＶケーブル
    MsgBox yomi("UTPケーブル")          'ＵＴＰケーブル
    MsgBox yomi("AEケーブル")           'ＡＥケーブル
    MsgBox yomi("USBケーブル")          'ウｓｂケーブル
    MsgBox yomi("ETC")                  'エＴＣ
End Sub

Function yomi(txt As String)
    yomi = Application.GetPhonetic(txt) '読みを再変換して出力(全角で出力される)
End Function

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

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

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

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

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

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

Answer 1

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

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

Comments

[torisan]

>そのPCを使っている人がそのように誤変換をしてしまった過去があるのではと思います。
はい、言われてみればそのような覚えがあります。

語彙については数が多すぎる為、
ある程度の指標として使用する事とします。
回答ありがとうございました。

Answer 2

ふりがなは、文字入力時の情報をExcelが記憶していることによって取得しています。
そのため、コピー＆ペーストを行うなど、入力方法によっては正確に取得することができません。

私の環境では質問に記載の"ウｓｂ"等を再現できてはいませんが、上記のような理由により発生しているものと推測します。

対応としては、ライブラリを探されるか、外部APIを使用するなどが考えられるかと思います。
外部APIの例としては、下記があります。

テキスト解析:ルビ振り - Yahoo!デベロッパーネットワーク
https://developer.yahoo.co.jp/webapi/jlp/furigana/v1/furigana.html

Comments

[ttyp03]

Excelが記憶しているふりがなを取得するのはワークシート関数のPHONETIC関数ではないでしょうか。
アプリケーション関数のGetPhoneticはIMEから持ってくるようですよ。

[torisan]

再現できずという事は個別の環境で間違いなさそうですね……。
外部APIについては、そこまで大きなプログラムではない事と、
変換後にもメンテ画面がある事などから見送る事としました。
回答ありがとうございました。

[退会済みユーザー]

Application.GetPhoneticはIMEの情報を参照するのですね。
把握できていなかったので、勉強になりました。
回答として適当ではなかったようで失礼いたしました。