시간이 지남에 따라 엄청난 수의 문서를 수집하는 것이 매우 가능합니다. 어느 시점에서 컬렉션의 각 문서를 동일하게 변경할 수 있습니다. 예를 들어 각 문서 내에서 회사 이름을 변경해야 할 수 있습니다. 분명히 각 문서를 열고 변경 한 다음 문서를 저장할 수 있지만 처리 할 문서가 수백 또는 수천 개이면 해당 프로세스가 금방 피곤해질 수 있습니다.

무엇을해야합니까? 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 문서와 함께 작동하는 다양한 상용 제품도 있습니다. 다양한 구독자가 다음 프로그램을 제안했습니다.

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1462)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Mass_Search_and_Replace [대량 검색 및 바꾸기].