Excel Maniacs

定型文は登録して入力を簡単に (ATOK編）

  試験問題作成時には「次の日本語の意味になるように，(    )内の語(句)を並べかえなさい。

但し，文頭に来るものも小文字にしてあります。」など定型的な文章を入力することがよくあります。

そのような文章は「単語登録」して入力の手間を省きましょう。
 
  ◆ATOKの場合

１．登録したい文章を選択し、ATOKパレットの「単語登録」をクリックします。

２．「単語」欄にはすでに登録したい文章が入力されています。

　「読み」の欄にその文章のわかりやすい名前を入力します。この場合は「せいじょ」としました。

 

  「OK」をクリックしてダイアログボックスを閉じます。

３．「単語登録」が済んだので 「せいじょ」と入力すると変換候補に「次の日本語の意味になるように，

　　(    )内の語(句)を並べかえなさい。但し，文頭に来るものも小文字にしてあります。」が

　　現れるようになりました。

 

 

 

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

 

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

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

利用しているために単語が全ての音節で分けられているとは限りません。例として「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

 

ワードでアクセント問題を作る

 

１．まず、元となる英単語を下図のように用意します。

 

 

２．問題にする英単語（opportunity)を選択します。ワードでは英単語をダブルクリックしても

     選択することができます。マウスでドラッグする方法よりも正確に選択することができます。

 

 

３．「校閲」タブから「英文アシスタント」をクリックすると「リサーチ」ウィンドウが現れます。

      （インターネットに接続していることが必要です）

 

 

 

４．「op·por·tu·ni·ty」をマウスでドラッグして選択します。

   次にCtrlキーを押しながらCキーを押してコピーします。

 

 

５．２に戻りもう一度「opportunity」を選択します。

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

 

 

６．「op·por·tu·ni·ty」を選択して、「ホーム」タブから「亜(ア)」（ルビ）をクリックします。

 

７．「ルビ」ダイアログボックスで囲みの部分を書き換えて「OK」をクリックします。

 

 

すると下図のようになります。これを単語の数だけ繰り返します。