Excel Maniacs

一太郎でアクセント問題を作る

 

  下図のように英単語をいくつかの音節のまとまりに分けて、各部分に番号を割り振るやり方を紹介します。

ワード版では音節を全てバラバラにしていましたが、一太郎では行送りの際の「ハイフネーション」を

利用しているために単語が全ての音節で分けられているとは限りません。例として「opportunity」は

ワードでは５つの部分に分解されていますが、一太郎では４つです。

もちろん、完全に手作業でやれば一太郎でもワードでもどちらでも同じように出来ます。

１．「opportunity」を選択します。「ツール」メニューから「ハイフネーション」をクリックして

「ハイフネーション」ダイアログボックス出します。「設定」を「手動設定」にして「OK」をクリックします。

２．「ハイフン設定」ダイアログボックスが表示されます。「設定」の欄の「op-por-tu-nity」を

     マウスで選択して、（あるいはShiftキー押しながら矢印キーで選択して）Ctrlキーを押しながら

     Cキーを押してコピーします。次に「中止」をクリックするか「×」をクリックしてダイアログボックスを

     閉じます。

 

４．一太郎は下図のようになっているはずですので･･･

･･･Ctrlキーを押しながらVキーを押すと「opportunity」が音節で分解されて「op-por-tu-nity」になります。

 

５．「op-por-tu-nity」に１～４までのルビを振ります。  

＊方法１ 「op-por-tu-nity」全体を選択してメニューを「書式」「ふりがな」と辿り

「１単語の設定／変更」をクリックすると「ふりがな－1単語の設定/変更」ダイアログボックスが現れます。

「ふりがな」のところに「1234」と入力すると下図のようになります。

このままでは親文字と番号がずれているので適当にスペースを入れて調整して「OK」をクリックします。

実際のところ、番号が増えてくると調整が煩わしいと思います。

 

 

＊方法２
    「op-por-tu-nity」の「op」だけを選択してメニューを「書式」「ふりがな」と辿り

「１単語の設定／変更」をクリックすると「ふりがな－1単語の設定/変更」ダイアログボックスが現れます。

「ふりがな」のところに「1」と入力すると下図のようになります。

これで「OK」をクリックすれば親文字の中央にぴったりと番号が表示されるのですが、

残りの「por」「tu」「nity」に対しても同じ操作を繰り返さなければなりません。

残りの単語についても更にこの操作を繰り返すことは、これもかなり煩わしいと思います。

 

＊方法３

    「方法２」は単純作業の繰り返しなので、この操作を自動化するマクロを組んでみました。

一太郎の「システムマクロ」に登録して下さい。マクロ名は「音節番号設定」とでもしておきましょう。

「システムマクロ」に一度登録しておけば、いつでもそのマクロを使うことが出来ます。

!!***********************************************

!!注意

!!文字列を選択する時には左から右にして下さい

!!***********************************************

%TempStr = GetString()

For %i = 1 To Size(%TempStr)

      %Str = %Str & %TempStr(%i)

Next

%Str=LTrim(RTrim(%Str)) & "-"

%RowPos=GetRow()

%ColPos=GetColumn()-Len(%Str)+1

%PagePos=GetPage()

!!文字サイズ取得--------------------

左   

%CharSize=GetCharacterPoint()

右

!!--------------------------------------

!!音節に割り振る記号変更は%文字種の数字を変える。

!!数字：0

!!半角カタカナ：1

!!--------------------------------------

%Pos1=1

%Num=1

%文字種=1

For %i = 1 To Len(%Str)

        If Mid(%Str,%i,1)="-" Then      

              %x =記号(%Num, %文字種）     

              文字選択解除     

                %Pos2=%i-1     

              Jump(%PagePos, %RowPos, %ColPos+%Pos1-1+%num-1)   

              範囲選択開始(.単位=1)   

              Jump(%PagePos, %RowPos, %ColPos＋%Pos2+%num-1)     

              ﾙﾋﾞ(.ﾙﾋﾞ文字=%X,.ｻｲｽﾞ=%CharSize/4)   

               文字選択解除   

              %Pos1=%i+1   

              %Num=%Num+1    

      End If  

Next 

Function 記号(%Num, %文字種）  

     If %文字種=1 Then   

            記号= Char(%Num+176)  

    Else     

             記号= %Num  

     End If

End Function

 

漢字書き取り問題作成(一太郎マクロ）

★教員のためのコンピュータ活用術No.9

概要）

問題にしたい漢字を全角の括弧（　　　　）で囲むとその部分が丸数字＋読み仮名になり、元の漢字が丸数字＋漢字になって本文下に抜き出される。

使い方

１．問題にしたい漢字を全角の括弧（　　　　）で囲む。下の括弧は目立たせるために赤にしてあるが実際には赤にする必要はない。

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

くまぷーは2000年の夏にN市の（姉妹都市）であるタスカルーサに生徒２０人を（引率）しました。タスカルーサはアメリカ南部のアラバマ州にあります。そこで今流行りの（国際交流）をしちゃおう、ていうわけです。具体的にはこの表の（日程）でアラバマ大学で（語学研修）をしたり、タスカルーサの人のご家庭にホームステイをさせてもらったり、旅の終わりにはニューオリンズの（観光）もしちゃおうなんて、結構盛りだくさんな内容でした。アラバマ（大学）のスタッフやタスカルーサの人たちがとてもよくしてくれたので生徒たちはたいへん喜んでいました。

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

２．文章を選択してマクロ「漢字書取問題作成Ⅱ」を実行。すると下のような結果になる。

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

くまぷーは2000年の夏にN市の（① しまいとし）であるタスカルーサに生徒２０人を（② いんそつ）しました。タスカルーサはアメリカ南部のアラバマ州にあります。そこで今流行りの（③ こくさいこうりゅう）をしちゃおう、ていうわけです。具体的にはこの表の（④ にってい）でアラバマ（⑦ だいがく）で（⑤ ごがくけんしゅう）をしたり、タスカルーサの人のご家庭にホームステイをさせてもらったり、旅の終わりにはニューオリンズの（⑥ かんこう）もしちゃおうなんて、結構盛りだくさんな内容でした。アラバマ（⑦ だいがく）のスタッフやタスカルーサの人たちがとてもよくしてくれたので生徒たちはたいへん喜んでいました。

① 姉妹都市, ② 引率, ③ 国際交流, ④ 日程, ⑤ 語学研修, ⑥ 観光, ⑦ 大学

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

★このマクロの特徴

一太郎マクロでエクセルを操っている。

★開発環境　WindowsXp
　　　　　　　　　一太郎2005
　　　　　　　　エクセル2000

★備考　Windows8.1、一太郎2013玄、Excel2010でも動作確認済み

漢字書取問題作成Ⅱをダウンロード

Noughts and Crosses

Tic Tac Toe とも言います。単なる３目並べです。

本当は学期末で忙しいのですが、やるべきことをやらずに

戯れに作りました。一太郎マクロで作ったと言うだけがウリです。

特に芸はありません。(^^ゞ

Noughts_and_Crossesをダウンロード

あ、一太郎のバージョンは２０１３　玄　です。　(^^ゞ