Как заменить слово в нескольких файлах сразу?

[Maverick]

Нужно решить задачу:
Есть небольшая кучка файлав .xls (около 100 шт ). Все одинакового содержания (практически; это договора,меняются лишь данные клиента). В каждом договоре есть слово "монтажа". Необходимо это слово заменить на "сборки". Как это сделать по-умному и по-быстрому?

[gjghjc]

Записать макрос
Открыть файл
Заменить "монтаж" на "сборка"
Сохранить изменения.
Закрыть файл.

вот этот код открывает по очереди все файлы в определенной папке форматирует текст и отправляет на принтер, после чего файл закрывается

Код: Выделить всё

Dim fso As New Scripting.FileSystemObject
Dim pFolder As Scripting.Folder
Dim pFile As Scripting.File


Sub Макрос6()


Set pFolder = fso.GetFolder("D:\VYP\For_Print")

For Each pFile In pFolder.Files

    ChangeFileOpenDirectory "D:\VYP\For_Print\"
    Documents.Open FileName:=pFile.Name, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, Encoding:=1251

    Selection.WholeStory
    Selection.Font.Size = 7
    ActivePrinter = "HP LaserJet P2015 Series PCL 5"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

    ActiveDocument.Close SaveChanges:=False
   
   
    Next pFile
   
End Sub

Кто-то скажет что код не совсем красивый, но он был именно ЗАПИСАН а затем просто добавлен перебор файлов. И нужен был для разовой задачи по распечатке нескольких сотен txt документов.

[Watts[]n!]

Подскажите пожалуйста, где можно найти кирпич, позволяющий делать то же самое, только с простыми Txt-файлами?

[dr.MIG]

Подскажите пожалуйста, где можно найти кирпич, позволяющий делать то же самое, только с простыми Txt-файлами?

Что именно - распечатывать их или заменять слово?

[gjghjc]

А в коде для txt не много поменяется.
1.Через FSO получаем список файлов в папке.
2. По очереди открываем их
3. Читаем все что находится в файле в строковую переменную (опять таки при помощи FSO ReadAll кажется так)
4. Replace
5. Записываем в новый файл.
6. Все

[Maverick]

Все спасибо, все свободны! У меня все получилось