半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい

Question

「半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい」と考えた時、同じ様な質問とそれに対する回答は沢山有るのですが、意外に満足出来るやり方が見つからず、大変困っています。

大きな制約条件（これが難題...）として、会社が管理するWindows機なので、使って良いのはWordとExcelだけだという問題が有ります（便利なユーティリティーソフトを見つけても、インストール出来ない）。WordとExcelのマクロは、辛うじて、使用可です。

WWWでWordでのマクロの作例を探し当て、これは良いかなと思ったら、小文字の全角英数字が全部大文字の半角英数字になってしまい、これは駄目でした。
また、Wordの「文字種の変換」を試用してみると、「半角」を指定してテキスト全体を選択して変換した場合、全角英数字が半角英数字になるのは良いのですが、全角カナが半角カナになってしまい、これも非常に不都合でした。
尚、主なターゲットは、ワークシートとかではなくて長文のテキストなので、色々な回答例で「Excelの関数を使えば良い」と書かれている説明を読むと、ちょっと不便だなと感じました。

Wordでのマクロで、完璧なものが有れば、OKなのだと思うのですが、自分には未だそれを作る能力が有りません（これを機に、勉強したいと思っています）。良い解決策や、マクロが有れば、是非お教え下さい。

Wendy02 · Accepted Answer

こんにちは。

>全角の色々な記号を半角に揃えるという機能を付加したいと思った場合、

全角のいろいろな記号を半角に揃えるというのは、やってみないとはっきりいえませんが、今、チェックして、文字コードをみる限りは、範囲は特定化できそうです。

'アルファベット
While .Execute(FindText:="[Ａ-ｚ]{1,}", _
　　Wrap:=wdFindContinue, MatchWildcards:=True) = True
　　Selection.Range.CharacterWidth = wdWidthHalfWidth
　　t = t + 1
Wend

この部分の範囲、[Ａ-ｚ]　ではなく、[！-～] とすれば、可能ではないかと思います。試していません。それは、Unicode 全角アルファベット・記号の中で、ANSIの文字と同じ部分の範囲です。しかし、完全ではないかもしれません。

Unicode がベースになると、並びがバラバラになることがありますので、ややこしいのです。例えば、漢字の範囲は、JIS は[亜-熙]ですが、Unicode は、[一-龝] などとなります。並びが変わってしまいます。

参考書としては、

現行ですと、以下のような本があります。

Office VBA　Excel、Access以外は、WordとOutlook の日本語の解説書はほとんど手に入りません。需要が少ないといえばそれまでかもしれません。Excelの延長上では、Wordマクロは、ほとんど組めません。英文はある程度あるようですが、実際に本を手にとって見てみないと、役に立つか分からないのです。Amazonの読者書評も、プロやプロ級の人と、まったくの素人が併記してあるので、アテにならないのです。

Wordで実践 やさしくて役に立つ「マクロ」事例集―2003/2002対応 
http://www.amazon.co.jp/exec/obidos/ASIN/4774126705/
著者：西上原 裕明

オフィスの達人〈5〉VBA活用術
http://www.amazon.co.jp/exec/obidos/ASIN/4839916055/
著者：佐野 昂成

私個人は、買おうとは思っていたのですが、両方も購入していません。それと、内容は古いかもしれませんが、未だにMicrosoft のWord VBAの教本が販売されていたような気がします。

Microsoft のサポートサイトには、Word VBAのコードが相当量あるのと、Microsoft の Office プログラマーズガイド（入手はほとんど不可）を利用しています。

また、サイトでは、
Word mvps 
http://word.mvps.org/FAQs/index.htm

を利用しています。Wordは、未だ、Field Code を使いますので、さらにむつかしいです。内容は、古典的とさえいえます。

なお、私の今回の元のコードは、2003年に、本の出版にも利用したいとは言われて快諾したのですが、その後、どうなったのか分かりません。

Wendy02 · Answer

こんばんは。

私は、もう少し複雑なものを、ここで発表していますが、検索したら出てくるとは思います。
Excel用も出てくるはずです。質問の文章は、厳密に、WordなのかExcelなのか読み取れませんが、比較的コードが少ないWordを書いておきます。あくまでも私のオリジナルです。

その前に、通常の文章の修正の場合は、本来、文字種の揺れの問題ですから、

ツール－オプション－文章構成の詳細設定

いくつかの揺れのチェック
カタカナ設定－全角統一
英文字設定－半角統一

で、検出は出来るはずです。全角数字は、ここでは出させませんが、どこかに半角の数字を入れれば、出てくるはずです。

以下は、Word用マクロとして、2003年に、雑誌社のサポートサイトで、私が発表したものを加工したものです。その後、あまり、内容については検証されていません。理由は、ここでは、もう少し複雑な質問が出ているからです。また、コードの変数の　FChr, LChr は、本来はね必要ないのですが、ネットでは、半角カタカナが使えないので、以下のようにしました。

試してみましたが、文書校正ツールに引っかからないようなので、出来ているように思います。

>「Excelの関数を使えば良い」
それは、何かの間違いだと思います。なお、Excelは、またコードが違います。


Sub HankakuZenkaku()
Dim t As Integer
Dim myMsg As String
Dim FChr As String
Dim LChr As String

Selection.HomeKey Unit:=wdStory '文書の先頭に
On Error GoTo Errmsg:
With Selection.Find
　　.ClearFormatting
　　.Text = ""
　　.Replacement.Text = ""
　　.MatchFuzzy = False

'半角カタカナ
FChr = Chr("&HA6")　'半角ヲ
LChr = Chr("&HDF")  '半角゜
While .Execute(FindText:="[" & FChr & "-" & LChr & "]{1,}", _
　　Wrap:=wdFindContinue, MatchWildcards:=True) = True
　　Selection.Range.CharacterWidth = wdWidthFullWidth
　　t = t + 1
Wend

'数字
While .Execute(FindText:="[０-９]{1,}", _
　　Wrap:=wdFindContinue, MatchWildcards:=True) = True
　　Selection.Range.CharacterWidth = wdWidthHalfWidth
　　t = t + 1
Wend
'アルファベット
While .Execute(FindText:="[Ａ-ｚ]{1,}", _
　　Wrap:=wdFindContinue, MatchWildcards:=True) = True
　　Selection.Range.CharacterWidth = wdWidthHalfWidth
　　t = t + 1
Wend

　　 Selection.HomeKey Unit:=wdStory　'文書の先頭に
　　 If t > 0 Then
　　　　myMsg = t & "語、変換しました。"
　　 Else
　　　　myMsg = "変換するべき文字はありませんでした。"
　　 End If
　　 MsgBox myMsg, vbInformation
End With
　　Exit Sub
Errmsg:
　 MsgBox "エラー!: " & Err.Description, vbExclamation
End Sub

半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい

こんにちは。

こんばんは。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング