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

Blutdrucktabelle_DinA6

Blutdrucktabelle DinA6Blood-Pressure - smart

04-2024

177

Not rated yet

Blutdrucktabelle_DinA5

Blutdrucktabelle zum doppelseitigen drucken.Blood-Pressure to print on both sides of paper

04-2024

317

Not rated yet

AutoFill-Sendkeys

Logo for AutoFill-Sendkeys

Windows & Linux Automation



Sends keystrokes to the frontmost app (assuming a browser or Notepad) depending on the value of each cell.
 

04-2024

179

Not rated yet

Orden de Compra

Screenshot for Orden de Compra

Plantilla Básica para una orden de compra en Calc, en español.

04-2024

881

Not rated yet

calorieCalc_JP

Logo for calorieCalc_JP

Predicting weight fluctuations for a month from calorie consumption and calorie intake消費カロリーと摂取カロリーから1ヶ月の体重変動を予測

04-2024

443

Not rated yet

Suivi des remboursements (loan payment, personal finances)

Screenshot for Suivi des remboursements (loan payment, personal finances)

Pour suivre les remboursements des plutôt petits emprunts ou autres dettes (pas pour des maison par exemple).To keep track of the repayments of rather&

04-2024

424

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