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

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

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

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             ' to display how many files this macro will access,             ' uncomment the next line of code '            MsgBox "Found " & .FoundFiles.Count & " file(s)."



' 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 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             Next i         Else             ' if the system cannot find any files             ' with the .doc extension             MsgBox "No files found."

End If     End With End Sub

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

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

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

  • 単語の検索と置換（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は、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1462）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

linkMass Search andReplace。