WORDで一括置換

WORDの文書内で複数の単語を一括置換したいのですがどうしたらよいですか？またmacでも同様にできますか？教えて下さい。

No.4 ベストアンサー 回答者： imogasi 回答日時： 2004/09/12 14:24

ワードにおいて、１語の置換で、全て置換を選択する、マクロの記録を取り、複数語の配列を作って、置換操作の繰り返しを行うための、コードの改変を行うと出来そうです。

人手の操作をプログラムの繰り返しに置換えただけのものです。
Sub Macro17()
s1 = Array("京都", "本町", "２－")
s2 = Array("大阪", "伏見町", "３－")
For i = 0 To UBound(s1)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = s1(i)
.Replacement.Text = s2(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
s1とs2の行は、上下に付いて、左から対応していて、
s1--->S2に置換します。
配列の要素を増やせば、相当数までペアーを増やせます。
ＶＢの行継続の仕方など、勉強は必要ですが。

この回答へのお礼

すごい、ありがとうございます。自分でやるには少し難しそうですが、頑張ってみます。

お礼日時：2004/09/14 18:07

No.3 回答者： Panotty777 回答日時： 2004/09/09 17:47

#2です。

複数の種類の単語を変換するにはWordでは不可能なので、どうしても必要なのであれば他のテキストエディタ等を使う必要があります。しかし、私の知る限りどれも有料もしくはシェアウェアばかりです。

そこで、下記サイトにてMifesというテキストエディタの３０日体験版がダウンロードできるので、こちらを利用されるのも一つの手かと思います。
このソフトではWordのファイルも開けますが、テキストorバイナリ形式でしか表示できない(Wordの様に表示できない)ので、文章のみをコピーして「複数変換」を実行し、Wordにペーストして利用してください。

参考URL：http://www.megasoft.co.jp/products/miw6/miw6_reg …

この回答へのお礼

ダウンロードしてみました。ちょっとまだ操作が理解できてませんがやってみます。ありがとうございます。

お礼日時：2004/09/10 00:06

No.2 回答者： Panotty777 回答日時： 2004/09/09 02:37

[編集 － 置換]からウィンドウを開き、「全て置換」を選択で複数の単語を置換できます。

これは、MacのWordでも可能です。


それとも、「複数の種類の単語を一括置換したい」ということなのでしょうか。
もし、後者ならWordでは出来ません。

この回答へのお礼

後者だったのですが、やはりwordでは無理なのですね。ありがとうございました。

お礼日時：2004/09/09 11:12

No.1 回答者： g_nagata 回答日時： 2004/09/09 02:34

Word 2000、Windowsの場合では、

　１．編集→置換　もしくは　CTRL+H
　２．「検索する文字列」に変換前の言葉　（サーバ）等
　３．「置換後の文字列」に置換後の言葉 （サーバー）等
　４．[全て置換]

で、全て置換されます。

蛇足ですが、最後に[ツール]→[表記ゆれチェック]をすると、文章内の文言の統一性もチェックしてくれます。たとえば、

　プレーヤー　と　プレーヤ

が混在しないかとか、

　Personal Computer　と　personal computer

が混在しないか、とか。もし混在する場合はそれらをどちらか一方に一括で合わせる事もできますので便利です。