Используя Word изо дня в день, вы склонны накапливать много-много документов. Если эти документы используются для стандартных целей, они нередко содержат часть той же информации.

Например, у вас могут быть документы, содержащие рассказы, которые вы отправляете в разные газеты и журналы. Хотя отдельные истории могут быть разными, каждый документ может содержать ваше имя и контактную информацию. Если ваша контактная информация изменится или вы решите использовать другое написание для своего имени, вам может понадобиться способ сделать универсальное изменение для всех документов сразу.

К сожалению, Word не поддерживает такую ​​возможность. Вы можете либо полагаться на стороннее решение, либо написать свой собственный макрос для внесения изменений. Существует ряд сторонних программ, которые предлагают функцию поиска и замены, необходимую при работе с несколькими документами. Ниже приведены лишь некоторые из предложений, предложенных подписчиками WordTips:

Разработчик Word Малком Смит также создал макрос, который будет выполнять поиск и замену в каталогах. Если вы хотите его увидеть, вы можете посетить 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: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (3783) применим к Microsoft Word 97, 2000, 2002 и 2003.