教員のためのコンピュータ活用術 No.5 下線に丸数字

【´･ω･`】:問題文に下線を引いて番号をつけて・・・

　　　　　　でも、後から考えたら、下線を増やしたい、減らしたいなんていうのは

　　　　　　よくあること・・・

　　　　　　でも、下線に番号を振り直すのは面倒だし、よく間違える・・・

（●｀ε´●）：間違えるのはおまえだけだろ？！

【´･ω･`】:・・・ということで「下線に丸数字」というのをSuper Play Lite（一太郎マクロ）で

　　　　　　作ってみた・・・

（●｀ε´●）：なんで今更、一太郎マクロなんだ？

【´･ω･`】:「一太郎マクロ」という検索キーワードで覗きに来てくれる人もいるみたいだし・・・

　　　　　　戯れに作ってみたというところかな？

*************************************************************************************************

マクロ名：下線に番号

機能：下線（華麗に示す下線） に丸数字の番号を振ります。下線を増やしたり、減らしたりするとそれに合わせて丸数字を振り直します。ただし、下線の数は20本まで。

下線に番号をダウンロード 

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!選択範囲の下線（リスト２番目の実線）に丸数字の番号を
!!ふるマクロ。下線の数は２０本まで。
!!2012/08/27　くまぷー
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

declare variable $Bango(1 to 20)
ErrorBreakMode(0,0,0)

EndOfRange()
%Pe=getPage()
%Re=getRow()

WarningMode(0)

setBango()

For %i = 1 To 20
 文字全置換(.検索文字列=$Bango(%i),.置換文字列="",.あいまい検索=0)
Next

%Cnt=1

SearchStyle(1,2,3) 
Do While SearchStyleResult()
   CancelAllRange()
   SelectStyle(1,2)
   ContinueSearch
   If %i=%Cnt+1 or %Pe < getPage() Or %Re < GetRow() then
        WarningMode(1)
    　　Exit Do
    　　Stop　
   End if
   %Cnt=%Cnt+1
Loop
JumpSearchStyle(1,2,3) 
%i=1
Do While SearchStyleResult()

    CancelAllRange()
    挿入($Bango(%i))
    SelectStyle(1, 2)
   
    %i=%i+1
   
    If %i=%Cnt+1 then
     WarningMode(1)
     Stop
    End if
   ContinueSearch
Loop
WarningMode(１)

Sub setBango()
   $Bango(1) = "①"
   $Bango(2) = "②"
   $Bango(3) = "③"
   $Bango(4) = "④"
   $Bango(5) = "⑤"
   $Bango(6) = "⑥"
   $Bango(7) = "⑦"
   $Bango(8) = "⑧"
   $Bango(9) = "⑨"
   $Bango(10) = "⑩"
   $Bango(11) = "⑪"
   $Bango(12) = "⑫"
   $Bango(13) = "⑬"
   $Bango(14) = "⑭"
   $Bango(15) = "⑮"
   $Bango(16) = "⑯"
   $Bango(17) = "⑰"
   $Bango(18) = "⑱"
   $Bango(19) = "⑲"
   $Bango(20) = "⑳"
End Sub

 

 

Comments

[投稿情報: くまぷー]

こっちは誰も来ないか・・・