Форум Не про работу Самое разное

Как массово редактировать документы в Ворде?

З
На сайте с 25.03.2006
Offline
118
Зорро:)
833

Есть больше 500 документов в Ворде с неправильными реквизитами. Вручную открывать каждый документ и переправлять одну строчку на другую - долго. Нет ли способа автоматом поменять?

[Удален]
#1

кнчна. VBS вам в помощь)

Чеширский добавил 03.06.2009 в 17:06

Documents.Open FileName:="v3ryh4rdn4m3.doc", ConfirmConversions:=False, _ // открываем текстовый файл

ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _

PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _

WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Реквизиты" // ищем строку со словом ключевым для замены, можно использовать символы подстановки

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend // тут типа выделяем строку целиком

Selection.Delete Unit:=wdCharacter, Count:=1 // удаляем её

Selection.TypeParagraph

Selection.TypeText Text:="Реквизиты: +7 925 02 4149 3 - Продвижение сайтов и их оптимизация" // вставляем новое

ActiveDocument.Save

ActiveDocument.Close

Ну и зациклите это по кол-ву файлов в дир-рии. Успехов.

Если не справитесь то за репу или денешку напишу.

Но вроде тут итак уже всё понятно )))

FAQ: Для каких сайтов Как добавить расширения и Инструкция по настройке sape

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий