時間の経過とともに、膨大な数のドキュメントを収集する可能性が非常に高くなります。ある時点で、コレクション内の各ドキュメントに同じ変更を加えたい場合があります。たとえば、各ドキュメント内の会社名を変更する必要がある場合があります。もちろん、各ドキュメントを開いて変更を加えてから保存することもできますが、処理するドキュメントが数百または数千ある場合、そのプロセスはすぐに面倒になる可能性があります。

何をすべきか？ _WordTips_の他の問題で指摘されている点と一致して、平凡で面倒なことを達成するときはいつでも、マクロを使用して作業を処理できることがよくあります。たとえば、ディレクトリ内のすべてのドキュメントをステップスルーし、それぞれを順番にロードし、必要なテキストを検索して変更し、ドキュメントを再保存するマクロを作成できます。このプロセスは、マクロの制御下で実行されることを除いて、手動で実行するプロセスと同じです。これにより、はるかに簡単かつ高速になります。

以下は、トリックを実行できるWordマクロの例です。

Public Sub MassReplace()

Dim Directory As String     Dim FType As String     Dim FName As String

Directory = "d:\temp"

FType = "*.docx"



ChDir Directory     FName = Dir(FType)

' for each file you find, run this loop     Do While FName <> ""

' open the file         Documents.Open FileName:=FName

' search and replace the company name         selection.Find.ClearFormatting         selection.Find.Replacement.ClearFormatting         With selection.Find             .Text = "OldCompanyName"

.MatchCase = True             .Replacement.Text = "NewCompanyName"

End With         selection.Find.Execute Replace:=wdReplaceAll

' replace street address         With selection.Find             .Text = "OldStreetAddress"

.Replacement.Text = "NewStreetAddress"

End With         selection.Find.Execute Replace:=wdReplaceAll

' replace the City, State, and Zip code         With selection.Find             .Text = "OldCityStateAndZip"

.Replacement.Text = "NewCityStateAndZip"

End With         selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document         ActiveDocument.Close wdSaveChanges

' look for next matching file         FName = Dir     Loop End Sub

このマクロは非常に強力であり、会社名だけでなく会社の住所も変更できます。あなたがする必要があるのは、検索で使用するディレクトリとドライブ、および新旧の会社情報を指定するために変更を加えることです。

マクロの扱いがあなたが取り組みたいものを少し超えている場合は、Word文書で動作するさまざまな商用製品も利用できます。さまざまな加入者が次のプログラムを提案しています：

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

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（8477）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Mass_Search_and_Replace [Mass Search andReplace]。