【´･ω･`】:問題文に下線を引いて番号をつけて・・・
でも、後から考えたら、下線を増やしたい、減らしたいなんていうのは
よくあること・・・
でも、下線に番号を振り直すのは面倒だし、よく間違える・・・
（●｀ε´●）：間違えるのはおまえだけだろ？！
【´･ω･`】:・・・ということで「下線に丸数字」というのを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
最近のコメント