Wordを毎日使用すると、大量のドキュメントが蓄積される傾向があります。これらのドキュメントが標準的な目的で使用される場合、ドキュメントに同じ情報の一部が含まれることは珍しくありません。

たとえば、さまざまな新聞や雑誌に投稿する記事を含むドキュメントがある場合があります。個々のストーリーは異なる場合がありますが、各ドキュメントにはあなたの名前と連絡先情報が含まれている場合があります。連絡先情報が変更された場合、または名前に別のスペルを使用することにした場合は、すべてのドキュメントに一度に普遍的な変更を加える方法を切望する可能性があります。

残念ながら、Wordにはこのタイプの機能は含まれていません。オプションは、サードパーティのソリューションに依存するか、変更を行うために独自のマクロを作成することです。複数のドキュメントを操作するときに必要な種類の検索と置換機能を提供するサードパーティのプログラムがいくつかあります。以下は、_WordTips_サブスクライバーによって提案されたもののほんの一部です：

  • MegaReplacer（http://www.editorium.com/14843.htm）

  • WordFisher（http://www.wordfisher.com/wf4.htm）

  • 単語の検索と置換（http://www.funduc.com/search_replace.htm）

  • InfoRapid Search＆Replace（http://www.inforapid.com/html/searchreplace.htm）

  • 高度な検索と置換（http://www.abacre.com/afr/）

Word開発者のMalcomSmithは、ディレクトリ間で検索と置換を実行するマクロも作成しました。ご覧になりたい場合は、http：//www.dragondrop.comにアクセスしてください。ページの右側にある[Wordの検索と置換]リンクをクリックするだけです。

独自のマクロを使用してもかまわない場合は、特定のフォルダー内のドキュメントをステップスルーするための固有の手法を以下に示します。

Public Sub MassReplace()

With Application.FileSearch         .LookIn = "C:\"             ' where to search         .SearchSubFolders = True    ' search the subfolders         .FileName = "*.doc"         ' file pattern to match

' if more than one match, execute the following code         If .Execute() > 0 Then             ' for each file you find, run this loop             For i = 1 To .FoundFiles.Count                 ' open the file based on its index position                 Documents.Open FileName:=.FoundFiles(i)



' search and replace the address                 selection.Find.ClearFormatting                 selection.Find.Replacement.ClearFormatting                 With selection.Find                     .Text = "OldAddress"

.MatchCase = True                     .Replacement.Text = "NewAddress"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' replace e-mail address                 With selection.Find                     .Text = "Oldemail"

.Replacement.Text = "Newemail"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document                 ActiveDocument.Close wdSaveChanges             Next i         Else             ' if the system cannot find any files             ' with the .doc extension             MsgBox "No files found."

End If     End With End Sub

このマクロは非常に強力で、住所だけでなく電子メールアドレスも変更できます。検索で使用するディレクトリとドライブ、および新旧の情報を指定するために変更を加えるだけです。マクロの早い段階で.Lookinパラメーターを変更して、マクロが検索する場所を示します。必ずフルパスを使用してください。次に、マクロの本体内で、.Textパラメーターと.Replacement.Textパラメーターを更新して、検索および置換する対象を反映します。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（3783）は、Microsoft Word 97、2000、2002、および2003に適用されます。