和文字ファインダー：英訳したワードの文書ファイル中に日本語文字が残っていないかチェック

WSH(VBScript)でこんなのが出来ました。

ワードの文書ファイルをアイコンにドロップすると、日本語文字すべての直前に「和」という漢字を挿入して別の文書ファイルへ出力します。複数ファイルをドロップして一度に処理することも可能。日本語のワード上で欧文への翻訳をするかたが欧文ソフトでは化けてしまう文字をチェックできます。

なお、ワード持ってないと動きません。

出力ファイル名は「元のファイルのフルパス名」＋「.doc」 になります。従って各シートのテキストは元のファイルと同じフォルダに出来ます。

出力ファイルでは書式情報は消えてしまいます。 ファイルを開いて全角文字を人力で探す、 あるいは欧文専用ソフトで読んで文字化けを人力で探す、 この繰り返し、 と言うような単純手作業しかしたくない人から貴重な作業時間を奪ってしまい、 暇にしてしまいますが、 コンピュータはそういうロボットのような無味乾燥な手作業を人に朝から晩までさせるためにあるのでなくて、 ロボットのような手作業から人類を解放して、 もっと有用で創造的なことに貴重な時間や手や頭を使えるようにするためにありますから、 貴重な時間や手や頭を、 本質的にはロボットがするべきであって人間様の関与が不要であるような作業に費やすことによって、 仕事をしたつもりになって自己満足し他人の経費を無意味に消費させ不勉強で怠惰な自己の不当な利益としたがるような、 しかも実際に手間と時間はかかるので労力は大変なものなので本人は大変な労働をしたつもりになっているという、 斯様な不届きな方向性とは全く相容れません。
人間のパワーを創造的な仕事に振り向けるためにこそコンピュータは存在するので、 お互い人類のために頑張りましょう。
MS系ソフトはあんまり詳しくないんですが どうしてこれしきのものがネットに転がってないんだ。 あ。詳しくないって言っても20年ぐらい前の大昔に MSDOS上のMS-BASICのマニュアル原稿書きのアルバイトしたことならあります。 プログラム自体は簡単なんですけど、 たったコレだけのプログラムなのに あれこれ調べるのが目茶目茶めんどくさかったんですよ。 普段こういう種類の言語を書くプログラマじゃないんで。 「そんなの作って持ってるよ」って人も居るか知んないけど 「だったら公開しろよ」と言いたい。 みんなでオンナジもん作ってたら無駄じゃんか。 ネット検索でヒットしない場所にあるものは公開してるとは言えない。 外へ見せられないものなら外から見れば無いのと同じだ。 それを有ると言い張るのはおかしい。）

さて、以下は定型的なお約束です。 オープンソースとはどういうものか理解されないかたがいらっしゃるようなので、 常識的なことですが念のために書いておきます。
このプログラムの動作は無保証です。 保証を求められるようであればリスクが大きすぎますから無償では公開できません、 というのが無保証である理由です。考えてみればあたりまえですよね。 クレームは受け付けません。なお、改善案は受け付けます。 ただし受け付けはしますが何らかのリアクションを保障するわけではありません。 改善されればもしかすると他の誰かが助かるかもしれない、というのが、 改善案を出す側のモティベーションになると思います。
著作権は放棄しませんが、 「自分の著作物であるかのようにして、 公共の福祉に反する不当なリターンを得ることを許さない」 という目的以外には使わないので、 自分のコピーライトを不当に主張したり、 自分の著作物と偽ってどこかに納入するような行為以外なら、 無断利用で構いません。
このページを見つけたのはあなたですけど、 このプログラムを作ったのはあなたではない。 (このページを見つけたこと自体に対する報酬を得るのはもちろん構いません。 ようこそいらっしゃいました。よく見つけましたね。褒めて遣わしちゃいますよ。うん）
ここの情報を利用して他言語などに改変したものを公開する場合は、 原著作あるいは原資料(ここのＵＲＬでも)の表示してね(^^;;

wamojifinder.vbs

以下のプログラム部分を選択してメモ帳に貼り付けるなどしてこのファイル名で保存すれば使えます：Windows用(Windows98以前あたりだと自分でWSHをインストールしないとWSHが入ってないカモ：VBScriptはバージョン5以上：IE5をインストールしたときに入るのがバージョン5ですからそれ以降のIEが入ってればダイジョブでしょう) 
'wamojifinder.vbs -- by i16 2004/02/07

Dim objWord
Dim f
Dim m
Dim rx

If WScript.Arguments.Count<1 Then
   m="wamojifinder.vbs -- 和文字ファインダー by i16 2004/02/07"&Chr(10)&Chr(10)
   m=m&"Word文書ファイルをvbsアイコンにドロップすると"
   m=m&"日本語固有の文字にチェックをしたdocファイルが出来ます"&Chr(10)
   m=m&"（複数ファイルを同時にドロップして一気に作業することも可能）"&Chr(10)&Chr(10)
   m=m&"(MS Word(2000以降?)とVBScript 5以降(Internet　Explorer 5以降)が"
   m=m&"インストールされている必要があります)"&Chr(10)&Chr(10)
   m=m&"寄付歓迎(ネットのお買い物を私のＷｅｂのリンクよりご利用ください)"&Chr(10)
   m=m&"/web/20070826212520/http://i16.jp    i16(愛一郎)"
   MsgBox m
   WScript.Quit
End If

Set objWord=CreateObject("Word.Application")

'objWord.Visible=True

Set rx = New regExp
rx.Pattern="([^\x00-\x5b\x5d-\xff])"
rx.Global=true

For Each f In WScript.Arguments
   objWord.Documents.Open f
   objWord.ActiveDocument.Content.Text = rx.Replace(objWord.ActiveDocument.Content.Text,"和$1")
   objWord.ActiveDocument.SaveAs f&".doc"
   objWord.ActiveDocument.Close
Next

objWord.Quit
WScript.Quit

'end of wamojifinder.vbs

 

プログラムは見れば判るように、ここまでノウハウができてしまえばコロンブスの卵で、 真似したり改造したりするのはちょっとプログラムを習った人ならすぐできます。 私は30年近くプログラムを書いていますが真似するだけなら30時間も習えばできるかもしれません。 無料公開ですし勝手に持って行けるんですが、そこで仁義というか不文律のようなものを守るかどうかが、オープンソースというもの、つまりコンピュータ利用とは何であるか、ＩＴとは何であるかを理解できているかの分かれ目になるかと思います。 これが理解できていないとどういう困った事態になるかはとりあえずここでは説明を省略しますが、そういうことです。 もしあなたがオープンソースについて高々１０年以内の経験しかない経営者等であれば、以上を判断に加えることによって技術者の質を判断することができるようになりますから、この単純な判断基準を知ることで測り知れない利益を得ることになると思います。

なお、利用は全く無料ですが、無料で、経済的な負担なしに私に寄付をすることができます。 ネット書店などネット上の各種販売サイトでネットショッピングをされる場合に、 私が設置している広告リンクからたどって購入していただけると、 私が紹介者ということになって１％〜３％程度のリベートが私に支払われますので、 どうせ買おうとしていたものなどはそちらから購入していただけると有り難いです。 不要なものを購入していただく必要はありませんし（それぐらいなら現金でお送りいただいたほうがいいです(笑)）、他にもっと安かったり便利だったりするお店をご存知であれば、私は人様に損をさせたいわけではないので、そちらでお買い求めいただけばよろしいのですが、いずれにせよ購入するようなものについて、そのようにお願いできれば。

マルチ商法等ではないので収益としては私宛のリベートよりネットショップの収益のほうが一桁ぐらい大きいはずですから普通の買い物と同じだと思います。普通に検索等から買う場合と消費者側が支払う値段は同じです。
なお、私が紹介中のネットショップ等でトラブル等がありましたらお知らせください。 何らかの責任を取れるほどの金額はいただいていませんから責任は取れないんですが、 私のサイトから問題のあるショップへのリンクがあればたいへん不愉快ですので、 リンクを削除したり何らかの報告を掲載したりするかもしれません。

広告はこちら

 

i16(愛一郎)