Птичка шизокрылая, Борец С Режимом Дня
[ok]
Существует ли программка или, может, есть где на просторах интернета макрос какой, который бы позволил одновременно вносить изменения в несколько файлов?
Есть много документации, в которой надо долго и нудно менять много одинаковостей (под три сотни файлов, и в каждом надо менять "Вася Пупкин" на "Иванов Иван Иванович"). Хотелось бы как-то автоматизировать процесс.
Существует ли программка или, может, есть где на просторах интернета макрос какой, который бы позволил одновременно вносить изменения в несколько файлов?
Есть много документации, в которой надо долго и нудно менять много одинаковостей (под три сотни файлов, и в каждом надо менять "Вася Пупкин" на "Иванов Иван Иванович"). Хотелось бы как-то автоматизировать процесс.
-
-
08.10.2008 в 19:20-
-
08.10.2008 в 19:21-
-
08.10.2008 в 23:24Спасибо!
Аватара очаровательная
-
-
08.10.2008 в 23:38-
-
09.10.2008 в 13:03-
-
13.10.2008 в 12:39-
-
13.10.2008 в 13:52нарыла и попробовала еще кучу прог. То ли туплю, то ли что, но ничего не хочет пахать нормально(((
-
-
13.10.2008 в 14:02-
-
13.10.2008 в 14:07сказала же. Док, док, док. См. прошлый пост. Да и документация, кажется, по дефолту либо док, либо эксель, если не указано иначе.
-
-
14.10.2008 в 15:14документация, кажется, по дефолту либо док, либо эксель, если не указано иначе
нет, это не так
-
-
14.10.2008 в 15:19да. Офис XP, если мне мой склероз не изменяет я сейчас не дома. Точно не 2007.
У меня мелкомягкий стоит как запасной вариант, опен офис мне больше нравится.
-
-
14.10.2008 в 17:16MyPath = "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
-
-
15.10.2008 в 14:54ой, спасибо! Сейчас попробую.
-
-
15.10.2008 в 15:17-
-
18.10.2008 в 14:31Neitent помогло?
-
-
05.11.2008 в 16:11Как-то оно никак( Или у меня руки кривые. Ручками сделала...
-
-
05.11.2008 в 16:13