Excel Maniacs: 一太郎マクロ

教員のためのコンピュータ活用術　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

投稿情報: 午後 08時37分カテゴリー: 一太郎マクロ, 一太郎マクロ初心者奮戦記, 一太郎マクロ初心者奮戦記Ⅱ, 戯れで作りました・・・(^^ゞ, 教員のためのコンピュータ活用術 | 個別ページ | コメント (1) | トラックバック (0)

整序問題作成マクロ一太郎版

【´･ω･`】:一太郎マクロで「整序問題作成」を作ってみたよ。

ワードVBA版と同様に語句のグループ化をすることができる。

　　　　　システムマクロとして登録すると便利だよ。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
免責　このマクロの使用によっていかなる損害が生じようと、
　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

マクロ名　「整序問題作成Ⅱ」（一太郎版）

使用ソフト一太郎２００８

機能　　英文など半角スペースで区切られた語句を選択すると、その語句の頭に記号を付けてをランダムに並べ替える。

グループ化したい語句を半角のかっこで囲むと

　　その語句はひとまとめにして扱われる。

実行法　

１．グループ化したい語句があれば半角のかっこで囲む
２．マクロを作用させたい範囲（並べ替えをしたい語句）を選択
３．「ツール」「マクロ」「実行・編集」「整序問題作成」を実行

例１）
I've never seen such a beautiful lady as your sister.

↓
I've never 《ｱ. seen /ｲ. a /ｳ. lady /ｴ. such /ｵ. beautiful 》 as your sister.

例２）
I've never seen such a (beautiful lady) as your sister.

　　　　　　　　　　　　　　　　　　　↓
I've never 《ｱ. beautiful lady /ｲ. such /ｳ. a /ｴ. seen 》 as your sister.

TARO_Macro_Seijo01.lzhをダウンロード