[Neitent]

[ok]

Существует ли программка или, может, есть где на просторах интернета макрос какой, который бы позволил одновременно вносить изменения в несколько файлов?
Есть много документации, в которой надо долго и нудно менять много одинаковостей (под три сотни файлов, и в каждом надо менять "Вася Пупкин" на "Иванов Иван Иванович"). Хотелось бы как-то автоматизировать процесс.

@темы: MS Office, Поиск ПО

Comments

[neo_rage]

www.wosoft.ru/load/43-1-0-6471

[neo_rage]

www.infortech.ru/products/others/tr/help/

[Neitent]

Злой Рр
Спасибо!
Аватара очаровательная

[neo_rage]

Neitent у тебя тоже)))

[Enkryptor]

зависит от формата файлов

[techsupport]

Neitent, получилось? Что именно помогло?

[Neitent]

Первое - не, второе ест доки только в зарегистрированном виде. А кряк к нему никак не найду.
нарыла и попробовала еще кучу прог. То ли туплю, то ли что, но ничего не хочет пахать нормально(((

[Enkryptor]

Neitent, почему ты не хочешь сказать, о каком формате файлов речь?

[Neitent]

Enkryptor
сказала же. Док, док, док. См. прошлый пост. Да и документация, кажется, по дефолту либо док, либо эксель, если не указано иначе.

[Enkryptor]

"док" - это, видимо, документ MS Word? а MS Office на этом компьютере установлен? какой именно?

документация, кажется, по дефолту либо док, либо эксель, если не указано иначе

нет, это не так

[Neitent]

Enkryptor
да. Офис XP, если мне мой склероз не изменяет я сейчас не дома. Точно не 2007.
У меня мелкомягкий стоит как запасной вариант, опен офис мне больше нравится.

[Enkryptor]

ну вот я макрос набросал на VBA:

MyPath = "c:\имя папки с файлами\"
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.doc" Then ' открываем все файлы из папки
Application.Documents.Open FileName:=MyPath + MyFile, ReadOnly:=True
End If
MyFile = Dir
Loop
With Selection.Find
.ClearFormatting
.Text = "что заменить"
.Replacement.Text = "на что заменить"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute = True ' заменяем во всех открытых документах
Loop
End With

[Neitent]

Enkryptor
ой, спасибо! Сейчас попробую.

[Enkryptor]

Попробуй сначала на паре тестовых документов, вдруг я там накосячил где. Если не сработает - пиши, исправим.

[neo_rage]

Enkryptor ))) 5!)

Neitent помогло?

[Neitent]

neo_rage
Как-то оно никак( Или у меня руки кривые. Ручками сделала...

[Enkryptor]

мда..