Со временем очень возможно собрать огромное количество документов. В какой-то момент вы можете захотеть внести такие же изменения в каждый из документов в коллекции. Например, вам может потребоваться изменить название компании в каждом документе. Очевидно, что вы можете открыть каждый документ, внести изменения, а затем сохранить документ, но этот процесс может быстро утомить, если вам нужно обработать сотни или тысячи документов.

Что делать? В соответствии с мыслью, высказанной в других выпусках _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. Различные подписчики предложили следующие программы:

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (8477) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Mass_Search_and_Replace [Массовый поиск и замена].