一太郎　ふりがなマクロ　一太郎⇒投稿サイト

概略および注意事項

一太郎で使うマクロを公開します。

ふりがなが付いている文字列を、投稿サイト用のふりがな書式に変換します。
※小説家になろう様、アルファポリス様に対応。
※投稿サイト用のふりがな書式 とは、以下書式です。
　｜橘咲帆《たちばなさほ》　

注意事項

このプログラム は、株式会社ジャストシステムから提供されたプログラムを利用して作成したものです。
ご自分の環境での改変等はご自由にして頂いて問題ございません。
当方にて貴方の使用目的に適合することの保証はできません。自己責任でお願いいたします。
プログラムの著作権は、株式会社ジャストシステムに帰属します。
よって、有償での再配布をすることはできません（無償ならば問題ないようです）。

マクロ実行の際は、必ずバックアップをした後に実行してください。 

マクロコード

!!==============================================================================
!!【マクロ名】 ルビ変換：一太郎⇒投稿サイト
!!【見 出 し】 一太郎ルビを検索し、投稿サイト用ルビに変換する
!!【作 成 者】 Saho Tachibana
!!==============================================================================
!! このプログラムは、株式会社ジャストシステムから提供されたプログラム
!! を利用して作成したものです
!!******************************************************************************
!! (C)2020 橘花書房
!!******************************************************************************
!!******************************************************************************
!! 2022/10/16 v00.00 新規
!!******************************************************************************
!!******************************************************************************
!! エラー発生時の動作
!! Error ⇒中止!! Cancel⇒中止
!! Search⇒中止しない
!!******************************************************************************
    ErrorBreakMode(1,1,0)
!!******************************************************************************
!! 実行前確認
!!******************************************************************************
    %tmpAry = {"Go","Cancel"}
    %tmpPgm = "ルビ変換：一太郎⇒投稿サイト"
    %tmpMsg = %tmpPgm & "を行います"
    %tmpRep = Alert(%tmpMsg,1,{{%tmpAry(1),"Y"},{%tmpAry(2),"C"}})

    select case %tmpRep
        case nil
          stop
        case 2
          stop
    end select

!!******************************************************************************
!! マクロ実行中の経過を画面に表示しない
!!******************************************************************************
    DisplayMode(0)

!!******************************************************************************
!! 位置確認
!!******************************************************************************
    !! 編集画面タイプ待避
    %tmpMode = GetEditingScreenType

    !! 編集画面をドラフト表示に変更
    if %tmpMode <> 2 then
        EditingScreenType(2)
    end if

!!******************************************************************************
!! ふりがながなくなるまで繰り返し
!!******************************************************************************
!! カウント初期化
    %ct = 0

    Do

        !! ふりがな検索 文書頭から　あいまい検索なし
        SearchString("\{ふりがな\}",3,0)

        !! 検索なしの場合、ブレイク
        if not SearchStringResult() then
            Exit Do
        end if

        !! ふりがな開始位置を退避
        %tmpStarP=GetPage()
        %tmpStarR=GetRow()
        %tmpStarC=GetColumn()

        !!ふりがな終了までループ
        %sw=True

        Do
            NextCharacter(1)

            if GetRuby() = "" then
                %sw=False
                Exit Do
            else
               %tmpEnd_P=GetPage()
               %tmpEnd_R=GetRow()
               %tmpEnd_C=GetColumn()
            End if
        Loop While %sw=True

        !! 範囲指定
        jump(%tmpStarP,%tmpStarR,%tmpStarC)
        SelectRangeStart(1)
        jump(%tmpEnd_P,%tmpEnd_R,%tmpEnd_C)

        !! ふりがな文字退避
        %tmpRuby="《" & GetRuby() & "》"

        !! ふりがな削除
        Ruby(.設定ﾓｰﾄﾞ=0)

        !! ふりがな文字列挿入
        jump(%tmpEnd_P,%tmpEnd_R,%tmpEnd_C)
        insert(.文字列=%tmpRuby)

        !! ふりがな開始文字挿入
        jump(%tmpStarP,%tmpStarR,%tmpStarC)
        insert(.文字列="｜")

        !! カウントUP
        %ct = %ct + 1
   loop while SearchStringResult()

  !! 編集画面タイプを戻す
  EditingScreenType(.編集画面ﾀｲﾌﾟ=%tmpMode)

  !! 終了メッセージ
  %tmpMsg = "変換件数 " & string(%ct) & "件"
  Message(%tmpMsg,1)

!!******************************************************************************
!!以下は 株式会社ジャストシステム 作成のツールより引用
!!******************************************************************************
!!******************************************************************************
!! *************Attention************
!!お客様は、このマクロサンプルプログラムを現状のままで、もしくは改変した
!!プログラムを第三者に配布することができます。
!!
!!ただし、このプログラムは株式会社ジャストシステムが作成したものであり、
!!このプログラムの著作権は、株式会社ジャストシステムに帰属します。
!!従いまして、以下の条件に同意、遵守していただいた上でご利用下さいますよ
!!うお願いいたします。
!!
!!①このプログラム及びお客様が改変したプログラムを配布する場合は、無償に
!! て行って下さい。
!!
!!②お客様が改変したプログラムは、お客様と株式会社ジャストシステムの共同
!! の著作物となります。従って、改変したプログラムの冒頭には、以下の表示
!! を行って下さい。
!! 「このプログラムは、株式会社ジャストシステムから提供されたプログラム
!! を利用して作成したものです。」
!!
!!③お客様が改変したプログラムに関するお問い合わせには、弊社は一切お答え
!! いたしません。
!!
!!④弊社は、このプログラムがお客様の使用目的に適合することの保証は行いま
!! せん。このプログラムの使用結果につきましては、お客様の責任とさせてい
!! ただきます。
!!******************************************************************************