LibreOffice Logo LibreOffice Logo Extensions, Documentation and Templates repository

FuriganaSiteIcon Kanji to Phoentic(漢字をふりがなに変換)

CALC用拡張機能です。選択範囲のセルの漢字文字列をふりがなに変換します。 It is an extension for CALC. Converts the kanji character string of the selected cell to phonetic.

★ ★ ★ ★ ★
Calc Templates
Download latest

latest release: 2024-03-21 11:28:05

Description

CALC用拡張機能です。
選択範囲のセルの漢字文字列をふりがなに変換します。
変換するにはセルを選択後、ツール>アドオン>文字列をふりがなに変換 と操作してください。
Yahooのルビ振りAPIを使用しているためネット環境必須です。
1日あたり全ユーザー共有で5万件が上限となっています。その日他のユーザーが49000回変換を行っていたら、あなたが変換できるセル数は1000件。
独自にアプリキーを取得してマクロ内に設定すれば上限いっぱいまで使用できます。
https://e.developer.yahoo.co.jp/register

It is an extension for CALC.
Converts the kanji character string of the selected cell to phonetic.
To convert it, select a cell and then use Tools> Add-ons> Convert Text to Phonetic.
Internet environment is essential because it uses Yahoo's ruby swing API.
The limit is 50,000 for sharing all users per day. If other users convert 49,000 times that day, you can convert 1000 cells.
If you get your own app key and set it in the macro, you can use it up to the upper limit.
https://e.developer.yahoo.co.jp/register

Homepage: https://github.com/parpy/Kanji-to-Phoentic

Release Description Compatibility Operating Systems License Release notes Updated  
2.1.0 セル内改行に対応 2.1.0 セル内改行に対応 3.3 Linux, Windows, macOS CC0 2023-05-07 00:33:13 Download
2.1 文章内の数字の扱いを改良 3.3 Linux, Windows, macOS CC0 文章内の数字が消えてしまう現象を解消しました。 2023-04-18 12:39:51 Download
2.0 Yahooの変換APIバージョン2に対応 3.3 Linux, Windows, macOS CC0 2023-03-29 14:17:37 Download
1.0 1.0 6.2 Linux, Windows, macOS MIT 2020-06-05 16:27:56 Download
1.0.1 UI周りの微細な修正 6.2 Linux, Windows, macOS MIT 2020-06-05 16:27:56 Download
1.1 6.2.6,6.3で動作しない問題に対応 6.2 Linux, Windows, macOS MIT 6.2.6,6.3でhttpsへのアクセスが上手く行かないため、httpでのアクセスに変更しました。 2020-06-05 16:27:55 Download
1.2 6.4で動作しない問題の修正 6.1 Linux, Windows, macOS CC0  6.4で動作しない問題の修正 2020-06-05 16:27:55 Download
Show more

Related Extensions

PyPi Reader

Screenshot for PyPi Reader

Get release information from RSS in the PyPi-library.(Calc Template)

11-2024

11

Not rated yet

Kalendaro

Logo for Kalendaro

Simple and lightweight calendars

09-2024

1812

Not rated yet

Calendrier mensuel

Screenshot for Calendrier mensuel

Feuille de calcul qui génère un calendrier mensuel configurable et imprimable. Exemple d'utilisation de diverses fonctions de recherche, dates et utilisation intensive de formats conditionnels. Paramètres : noms des jours de la semaine et des mois dans

 
 

Not rated yet

Stock Trading Investing Log Journal for DayTrading, Swing Trading, Investors

Logo for Stock Trading Investing Log Journal for DayTrading, Swing Trading, Investors

Stock Market Trader: YOU need a spreadsheet! LearnN.ods tracks your trades; Supports multiple brokers, any trading style (day, swing, investing), counts your day-trades, logs your errors, improves your game!&l

04-2024

727

Not rated yet

Calendario Perpetuo

Logo for Calendario Perpetuo

Es una plantilla de calendario que se adapta automáticamente al idioma local instalado en el sistema. Permite elegir el año y el <span style="text-deco

04-2024

1372

Not rated yet

2 month Calendar

Logo for 2 month Calendar

2 month calendar for printing

04-2024

339

Not rated yet

Feedback

★ ★ ★ ★ ★

Post your review

You cannot post reviews until you have logged in. Login Here.

Reviews

  • Hidemune TANAKA Mar 29, 2023, 12:50 PM (20 months ago)

    ★ ★ ★ ★ ★

    V2対応できましたー。マージお願いしますね!

    Dim furigana_w As String
    Dim i As Integer
    'On Error GoTo ErrorHandler
    On Error Resume Next
    svc = createUnoService( "com.sun.star.sheet.FunctionAccess" ) 'Create a service to use Calc functions
    IntxtURL = svc.callFunction("ENCODEURL",array(Intxt))

    cells(1,1).value = IntxtURL

    XML_String = svc.callFunction("WEBSERVICE",array("https://jlp.yahooapis.jp/FuriganaService/V2/furigana?appid=" & AppID & "&jsonrpc=2.0&method=jlp.furiganaservice.furigana&grade=1&q=" & IntxtURL))
    if len(XML_String) = 0 Then
    XML_String = svc.callFunction("WEBSERVICE",array("https://jlp.yahooapis.jp/FuriganaService/V2/furigana?appid=" & AppID & "&jsonrpc=2.0&method=jlp.furiganaservice.furigana&grade=1&q=" & IntxtURL))
    End if

    Dim oTextSearch as Object
    Dim oOption as Object
    Dim oResult as Object
    Dim oStartPos as Long

    oSch = "furigana"":"""
    oStrIni = XML_String

    mstr = oStrIni
    Do While True
    idx = instr(mstr,oSch)
    If idx > 0 Then
    lastidx = instr( idx+len(oSch)+1, mstr,"""")
    Lipsum = mid(mstr, idx+len(oSch), lastidx-idx-len(oSch))
    Furigana_w = Furigana_w & Lipsum
    mstr = mid(mstr, lastidx)
    Else
    Exit do
    End If
    loop

    FuriganaCnv = Furigana_w
    End Function

RSS feed for reviews on this page | RSS feed for all reviews