Win10でExcel VBA GetPhoneticを使い ふりがな候補を全て連続で取得する方法？

Win10で全てのふりがなを取得するにはどうすればいいですか？
検索しても分かりませんでした。
Win7では、できたそうです。

Sub Sample2()
Dim buf As String, Phonetic As String, Ans As String
buf = InputBox("日本語を入力して！")
Phonetic = Application.GetPhonetic(buf)
Do While Phonetic <> ""
Ans = Ans & vbCrLf & Phonetic
Phonetic = Application.GetPhonetic()
Loop
MsgBox Ans
End Sub

http://officetanaka.net/excel/vba/tips/tips49.htm

https://ken3memo.hatenablog.com/entry/2021/04/03 …

No.1 ベストアンサー 回答者： fujillin 回答日時： 2024/03/08 11:57

こんにちは

ご指摘の通りで、GetPhoneticは仕様変更されているようですね。
一方で、M$DNのドキュメントは古いままのようです。
https://learn.microsoft.com/ja-jp/office/vba/api …
多分、英語圏から見ると、アジアの1国などどうでもいいので、ノーメンテなのでしょうね。


代替方法として、以下のAPIを紹介しているサイトがありました。
（GASでの利用でしたので、紹介サイトは省略）
https://yomi-tan.jp/man/v1

試してはいませんので、どの程度の精度かはわかりませんけれど、ご参考までに。
こちらであれば、指定数の読み（候補）を返してくれるようです。
非商用であれば、登録不要、1万回/日のリクエストまでは無料のようです。
GetPhoneticに比べると、Web経由なので使い勝手は面倒にはなりますけれど・・

この回答へのお礼

＞多分、英語圏から見ると、アジアの1国などどうでもいいので、ノーメンテなのでしょうね。

日本でITが発展していないのでしょう。
IT後進国なのですね。

＞ご指摘の通りで、GetPhoneticは仕様変更されているようですね。

Win10でExcel VBA GetPhoneticを使い ふりがな候補を全て連続で取得する。できないことが解りました。

お礼日時：2024/03/11 15:16