Word２０００で文章中のいろんな半角カタカナ言葉を全角に置き換えたい

質問

MS　Word2000で文章中に多く含まれるいろんな半角カタカナ言葉をすべて全角カタカナにすばやく置き換える方法はありませんでしょうか。何卒宜しくお願い申し上げます。

回答No.1

noname#77845 · ベストアンサー

Word2000はありませんので、Word2002では
「編集」→「すべて選択」で全文を選択状態にし、
「書式」→「文字種の変換」で「全角」を選択し「ＯＫ」
で変更できました。いかがでしょうか？

お礼

２０００でもできました。解決しました。
ありがとうございました。

回答No.4

enunokokoro

ANo.2です。
ANo.3のWendy02さんがマクロを直接紹介しているので、私の回答は参考
程度でも良いかも。
それと、補足としてコマンドの[文字種の変換]について説明不足の部分
があったため追加回答します。

マクロを使わない場合、半角カタカナだけを検索させるには、[ヲ-゜]を
ワイルドカードにチェックを入れることで探すことできます。
これで探したものを[文字種の変換]で全角にすると、濁点なども一文字
として全角になるので、通常の置換作業だけでは手間がかかって難しい
と説明したかったのです。

ですからマクロを使用する方法の一つとして、半角以外でも利用できる
アドインを紹介しました。これならいつでも呼び出すことができますし
用が済んだらアドインを外せば済みますから。
Wendy02さんのマクロはスマートにできていますから、個人的にはこの
マクロを使用したほうが良いと思います。

回答No.3

Wendy02

こんにちは。

#1さんの方式は、数字もアルファベットも全角になってしまうと思います。カタカナのみでないなら可能です。以下は、以前作ったものから、カタカナだけを取り出したマクロです。

Alt + F11 で、VBEditor を開け、ThisDocument をダブルクリックして開けたら、以下を貼り付けてください。Alt +Q で、閉じます。

Alt + F8 で、kana_HankakuZenkaku　という文字を見つけたら、クリックしてください。

なお、Excelの関数やWordのコマンドに関しては、コマンドの文字種の変換の[半角 ->全角]では、その範囲を指定する限りは、カタカナの半角濁点・半濁点は、そのまま、前の文字の全角の1文字として合体するはずです。以下のマクロは、それを応用したものです。（Word2000で検査済み）

--------------------------------------------------------------

Sub kana_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
　　 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

回答No.2

enunokokoro

Word2000だと半角カタカタのみの場合、濁点・半濁点は全角にしないで
設定する方法は難しいと思います。
[文字種の変更]を利用すると濁点などが一文字として全角になるので、
置換を活用するにも面倒な手順が多いと思います。

そこで以下のアドインを手に入れ、マクロを使用してはいかが。
さまざまな条件を指定できますし、半角カタカナで濁点・半濁点を文字
単位に戻してくれますから全角にならずに済みます。

McrTool
http://www7.plala.or.jp/hikita/sidea/program/vb/mcrtool_wd.html

これを手に入れたら、テンプレートをアドインとして指定し、メニュー
にある[ MacroTools ]→[全角半角の変換]→[文字種別指定]で、条件を
指定します。