Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Ребята помогите... Проблема такая, есть папка в которой более 500 документов, размером от 30 Кб до 5 Мб в каждом файле есть фраза "Сатья отнесена к разделу:" ....
Задача как сделать так чтобы одновременно эта фраза удалялась пакетно из предложенных документов. Я в макросах не силен, если не сказать ВООБЩЕ не силен...
Если можно.., помогите ребята...
P.S. Word 2007, Windows 7 максимальная...
Option Explicit
'расширения документов Word
Const DOC = "doc"
Const DOCX = "docx"
'Пример пакетной замены текста
Sub BatchReplaceSample()
BatchReplace "e:\work\VBA\", "Сатья отнесена к разделу:", ""
End Sub
'Пакетная замена текста в документах
' FolderPath - путь к папке с обрабатываемыми файлами
' FindPhrase - текст для поиска
' ReplacePhrase - текст для замены
'ссылки на дополнительные библиотеки: Windows Script Host Object Model (wshom.ocx)
Sub BatchReplace(FolderPath As String, FindPhrase As String, ReplacePhrase As String)
Dim fso As FileSystemObject
Dim DocFolder As Folder
Dim DocFile As File, FilePath As String
Dim ext As String 'расширение файла
Dim CurrentDoc As Document
Set fso = New FileSystemObject
Set DocFolder = fso.GetFolder(FolderPath)
For Each DocFile In DocFolder.Files
FilePath = DocFile.Path
ext = UCase(fso.GetExtensionName(FilePath))
If ext = UCase(DOC) Or ext = UCase(DOCX) Then 'это документ Word
Set CurrentDoc = Documents.Open(FilePath)
ProcessDocument CurrentDoc, FindPhrase, ReplacePhrase
CurrentDoc.Close SaveChanges:=True
End If
Next
Set DocFolder = Nothing
Set fso = Nothing
End Sub
'Замена текста в документе
' TargetDoc - обрабатываемый документ
' FindPhrase - текст для поиска
' ReplacePhrase - текст для замены
Sub ProcessDocument(TargetDoc As Document, FindPhrase As String, ReplacePhrase As String)
With TargetDoc.Content.Find
.Text = FindPhrase
.Execute FindText:=FindPhrase, ReplaceWith:=ReplacePhrase, Replace:=wdReplaceAll
End With
End SubОй, а что с этим делать.., а интерфейса программного к нему нету..?
Ой, а что с этим делать.., а интерфейса программного к нему нету..?
Вас интересует графический интерфейс наподобие формы с полями и кнопкой?
Да, да..., спасибо Вам большое за помощь и участие..!
Word 2007 Windows 7 x64 и х86 максимальная
дописываете
Sub BatchReplaceSample()
Dim FolderPath As String
FolderPath = "e:\work\VBA\"
Dim FindPhrase As String
FindPhrase = "Сатья отнесена к разделу:"
Dim ReplacePhrase As String
'ReplacePhrase = ""то что Вам нужно и BatchReplaceSample на запуск
Версия с графическим интерфейсом
А куда это все разместить, и где находится BatchReplaceSample , даже ка-то неудобно.., а не смогли бы Вы сделатьэто одним файлом запускаю, указываю путь к папке нажимаю кнопку.., получаю результат...
А где она версия с "графическим интерфейсом"
первые строки того, что Вам выложили:
Option Explicit
'расширения документов Word
Const DOC = "doc"
Const DOCX = "docx"
'Пример пакетной замены текста
Sub BatchReplaceSample()
BatchReplace "e:\work\VBA\", "Сатья отнесена к разделу:", ""Вместо них:
Option Explicit
'расширения документов Word
Const DOC = "doc"
Const DOCX = "docx"
'Пример пакетной замены текста
Sub BatchReplaceSample()
Dim FolderPath As String
FolderPath = "e:\work\VBA\"
Dim FindPhrase As String
FindPhrase = "Сатья отнесена к разделу:"
Dim ReplacePhrase As String
'ReplacePhrase = ""здесь FolderPath = "e:\work\VBA\" то что нужно
макрос BatchReplaceSample на запуск!!!!!!
Предыдущая попытка прикрепить docm-файл к сообщению была неудачной. 
Скачал, но получил пустой doc документ batchreplace.doc открыл ... чистый лист бумаги... :-(
Предыдущая попытка прикрепить docm-файл к сообщению была неудачной.
Скачал, но получил пустой doc документ batchreplace.doc открыл ... чистый лист бумаги... :-(
там в документе Сервис Макрос Безопасность Низкий уровень!!
Скачал, но получил пустой doc документ batchreplace.doc открыл ... чистый лист бумаги... :-(
После скачивания я тоже вижу пустой лист в режиме защищенного просмотра, но стоит нажать кнопку "Разрешить редактирование" и появляется форма.
Файл .png, приложенный к предыдущему сообщению, где-то пропал. Пробую прикрепить файл .jpg
adev, все нормально приклепляется, вы наверно забываете кнопку загрузить нажать
не по теме пока админ на связи
сейчас посмотрел посл. сообщение уйду в форум автоматизация указывает тему как мною не прочитанной, то есть есть новые сообщения
?????
finn пишет:Скачал, но получил пустой doc документ batchreplace.doc открыл ... чистый лист бумаги... :-(
После скачивания я тоже вижу пустой лист в режиме защищенного просмотра, но стоит нажать кнопку "Разрешить редактирование" и появляется форма.
Ципихович Эндрю, честно)) ничего не понял
Ребята, огромное спасибо за труд, но немогу я найти команду, кнопку "Разрешить редактирование" ичтобы появилась форма....да и с Сервис Макрос Безопасность Низкий уровень!!
Вроде как не профан... :-(
Ура, ребята, спасибо Вам за помощь безкорыстную, нет, мир не перевернулся, мир, не без добрых, людей!!! 
не по теме
честно)) ничего не понял
Вот я посмотрел эту тему
Потом жму автоматизация
И на этой теме вижу как будто она не просмотрена мною, но это не так
Ципихович Эндрю, движок так работает это не исправить, либо просто у вас куки не обновляются, так как надо
нажать кнопку "Разрешить редактирование", чего каждый раз вот тебе 10-ка
а однажды сделав нельзя???
..'. есть папка в которой более 500 документов, размером от 30 Кб до 5 Мб в каждом файле есть фраза "Сатья отнесена к разделу:" ....
Задача как сделать так чтобы одновременно эта фраза удалялась пакетно из предложенных документов. Я в макросах не силен, если не сказать ВООБЩЕ не силен...
Есть куча файловых менеджеров, выполняющих требуемую функцию.
Я, например, пользуюсь FAR.
finn пишет:..'. есть папка в которой более 500 документов, размером от 30 Кб до 5 Мб в каждом файле есть фраза "Сатья отнесена к разделу:" ....
Задача как сделать так чтобы одновременно эта фраза удалялась пакетно из предложенных документов. Я в макросах не силен, если не сказать ВООБЩЕ не силен...
Есть куча файловых менеджеров, выполняющих требуемую функцию.
Я, например, пользуюсь FAR.
Вот как.., а это интересно.. скажите , а у Totala такая версия есть, или только у Far очевидно плагин какой-то... если можно ссылочку, и хотя бы два слова, об механизме применения... Спасибо Вам!
... хотя бы два слова, об механизме применения...
Вот:
Это плагин для FAR'а, позволяющий производить поиск и замену неких данных
как в одном файле, так и во многих, а также работающий в редакторе и программе
просмотра. Предназначено для web-мастеров, программистов и продвинутых
пользователей.
Основные характеристики:
* Вы можете обрабатывать файлы в любой кодировке, установленной в FAR,
а также в кодировке Unicode
* Вы можете производить поиск и замену hex-кодов
* Вы можете использовать регулярные выражения в строках поиска и замены, для
указания маски файлов
* Вы можете сохранять и использовать схемы
* Вы можете указывать ограничения по дате, размеру, атрибутам для
обрабатываемых файлов
* Вы можете указать список обрабатываемых каталогов.
* Вы можете перекодировать данные из любой кодировки в любую (кроме Unicode)
* Можно произвести подсчет вхождений искомой строки в редакторе, программе
просмотра или во многих файлах
* Работа в выделенной области в редакторе
* Удобная навигация по найденному в редакторе
* Поддержка расширения возможностей при помощи внешних модулей.
В том числе уже есть и работают:
* NewName: переименование файлов с использованием регулярных выражений
* Dir2File: создание списка файлов - многофункциональный плагин,
способный сгенерировать все, что угодно, по вашим же правилам.
Например, вы можете:
* создать html-страницу с картинками из текущего каталога
* создать bat-файлы со сложными командами обработки нужных файлов
* скопировать ярлыки Internet (*.url) в один html-файл
* и многое другое - все зависит от вашей фантазии
* VerInfo: показ содержимого versioninfo для нужного файла
* И многое другое...
А как это плагин называется.., где его "выцарапать"..?
А как это плагин называется.., где его "выцарапать"..?
В Интернете полно ссылок на этот бесплатный плагин.
Ищите:
"far поиск и замена".
Можно добавить "download" (или "скачать").
(Файлы обычно имеют название "s and r.*").
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться