dポイントプレゼントキャンペーン実施中!

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 …

A 回答 (1件)

こんにちは



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


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

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

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

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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A