Excel Maniacs

一太郎・・・漢字書取問題作成マクロⅡの課題

　『戯れに一太郎を使って「漢字書取問題作成マクロⅡ」を作ってみました。

できばえは如何でしょうか？』ということを掲示板に書き込んだら、

悪児さんから下記のレスを頂いた。

試してみました。

素晴らしい。(^^)(^^)
非表示で呼び出せるんですね。〆(._.)

で、ちょっと気づいたことですが・・・(^^)ゞ

あ（悪児）は、（悪）い（児）です。

のような場合の読み分けが出来ないのは仕方がないとして、

（悪）い（児）は（悪児）です。

の場合だと、後ろの「悪児」が
「悪」と「児」に分割されてかなに直され、
最後に、「見つかりません」という
エラーになってしまいます。(^^;)(^^;)

ご意見ありがとうございます。

>「悪」と「児」に分割されてかなに直され、
>最後に、「見つかりません」という
>エラーになってしまいます。(^^;)(^^;)

そうですね。

「（悪）い（児）は（悪児）です。」の場合。
１回目のループで「悪」が下のように変換され、

（① あく）い児は（① あく）児です。

２回目のループで「児」が下のように変換されます。

（① あく）い（② じ）は（① あく）（② じ）です。

その結果、３回目のループで「悪児」を変換しようとするのですが、

ご指摘の通り、すでに「悪児」は読み仮名に変換されていて

存在しないので、「見つかりません」というエラーになってしまいます。

実はこのことはすでにわかっていたことなのですが

注として書くのを忘れてしまいました。m(__)m

実は漢字書取問題作成マクロⅡは括弧穴埋め問題作成システムの

コードを元にしたものなので・・・(^^ゞ

括弧穴埋め問題作成マクロの時は

メモ
　　　　２）「残業」「サービス残業」など共通の語句を含むことはできない。

ということを明記しておいたのですが
今回は忘れてしまいました。

http://www.geocities.jp/kuma_pooh1958/word001.htm

共通の語句を含む場合は語句の長い方から処理する

アルゴリズムに変更すればよさそうですね。それは今後の課題と言うことで・・・

P.S.　１・３マクロ館で「一太郎マクロ初心者奮戦記」を紹介していただいて

本当にありがとうございました。

漢字書取問題作成マクロⅡ・・・コード解説(2)

前回からの続きです。

選択された文字列を変数%Sentenceに格納する。
!!第４ブロック

%Str =GetString()
%StrNum = Size(%Str)
%Sentence = ""

For %i= 1 to %StrNum
　　　　　%Sentence = %Sentence & %Str(%i)
Next

　ここでは選択範囲の文字列を一字々々チェックし、全角左括弧、全角右括弧を

検索する。括弧が見つかったら、その間にある文字列を変数%Goku()に、

そのふりがなを変数%Yomi()に格納していく。

　変数%GokuNumにはユーザが全角括弧で指定した語句数を格納する。

尚、補足であるがエクセルのふりがなはデフォルトでカタカナを指定しているので、

Zen()とHira()でひらがなでふりがなが表示されるようにしている。

!!このプログラムの心臓部（第５ブロック）

%CharCount = Len(%Sentence)
%GokuNum=1
For %i = 1 To %CharCount

　　If Mid(%Sentence, %i, 1) = "（" Then
　　　　　%j = 0
　　　　　%Cnt = %Cnt + 1
　　　　　Do While Mid(%Sentence, %i + %j, 1) <> "）"
　　　　　　　　%j = %j + 1
　　　　　Loop

　　　　　%Goku(%GokuNum) = Mid(%Sentence, %i + 1, %j - 1)
　　　　　%Yomi(%GokuNum) = Hira(Zen(%Excel.GetPhonetic(%Goku(%GokuNum))))
　　　　　%GokuNum = %GokuNum + 1

　　End If
Next

WarningMode(0)で問い合わせのダイアログが表示されないようにする。

文字列全置換で全角左括弧、全角右括弧を消去する。

!!第６ブロック

WarningMode(0)
文字全置換(.検索文字列="（",.置換文字列="",.検索方向=3,.あいまい検索=1,.確認=0)
ReviveAdvancedRange( )
文字全置換(.検索文字列="）",.置換文字列="",.検索方向=3,.あいまい検索=1,.確認=0)

　setMarumojiでサブプロシージャを呼び出し、グローバルな配列変数$Marumoji()に

丸数字を格納しておく。

Forループでユーザが全角括弧で指定した漢字を丸文字付きのふりがなに置換していく。

WarningMode(1)で問い合わせのダイアログが表示されるようにしておく。

呼び出したエクセルの後始末。

カーソルを文章末に移動し、ユーザが全角括弧で指定した漢字を書き出す準備をする。

!!第７ブロック

setMarumoji
for %i = 1 to %GokuNum -1
　　ReviveAdvancedRange( )
　　文字全置換(.検索文字列=%Goku(%i),.置換文字列="（" & $Marumoji(%i) & %Yomi(%i) & "）",.検　　索方向=3,.あいまい検索=1,.確認=0)
next
WarningMode(1)
%Excel.Quit
Set %Excel = Nothing

EndOfParagraph( 2 )
Insert("",1)
Insert("",1)

文章末にユーザが全角括弧で指定した漢字に丸数字を付けて書き出す

　以上が「漢字問題作成マクロⅡ」プログラムの主部である。

あとはサブプロシージャのsetMarumajiのコードだけだ。

!!サブプロシージャ

Sub setMarumoji

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

End Sub

単純にグローバルな配列変数$Marumoji()に丸数字を格納するだけだ。

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

漢字書取問題作成マクロⅡ・・・コード解説

　前回に書いたことだが、この「漢字書取問題作成マクロⅡ」のポイントは

一太郎マクロでExcelを操作する点である。下のコードがExcelを起動し、

ExcelのGetPhoneticを利用して「一太郎」という漢字を「イチタロウ」という

読み仮名に変換するものである。

%Kanji = "一太郎"
Set %Excel = CreateObject("Excel.Application")
%Yomi=%Excel.GetPhonetic(%kanji)
MsgBox(%Yomi)

　この手の「アプリケーションの連携」に関するサンプルコードは割と

つまらないものが多い（と思う）のだが、このコードはけっこう面白いのではないだろうか？

さて、それでは「漢字書取問題作成マクロⅡ」の全コードを？ブロックに分けて紹介しよう。

!!変数宣言部（第１ブロック）

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!漢字書取問題作成マクロⅡ
!!くまぷー作
!!2006/11/21
!! http://members.jcom.home.ne.jp/kumano-pooh-san/
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

declare variable %Goku(20)
declare variable %Yomi(20)

%Goku(20)はユーザが全角括弧で指定した漢字を、 %Yomi(20)は

そのふりがなを格納する配列。

!!第２ブロック

SelectRangeStart( )
StartOfRange()
%StartPage=GetPage()
%StartRow=GetRow()　　　　　　　　　　　　　　　　　　　　　　
%StartCol=GetColumn()
EndOfRange()
%EndPage=GetPage()
%EndRow=GetRow()
%EndCol=GetColumn()

後でJump()を使うために選択範囲開始部分と選択範囲終了部分のページ、

列、文字数を変数に格納。

!!エクセルを起動（第３ブロック）

Set %Excel = CreateObject("Excel.Application")　　

エクセルをバックグラウンドで起動し、変数%Excelで一太郎マクロから

操作できるようにする。
　　　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）