Нужна помощь специалиста по работе с Вордовскими документами

regta
На сайте с 15.04.2006
Offline
311
977

Суть проблемы:

Есть несколько сотен одностраничных вордовских файлов, в каждом из которых в нижнем колонтитуле указаны одинаковые данные (перечень номеров телефонов)

Нужно эту строку заменить на новые данные (одинаковые для всех)

Нужно автоматическое решение, как сделать?

Кто может помочь - прошу в личку (и сколько $тоит)

Спасибо

Цитируйте, плиз, историю переписки в личке. Спасибо.
Papochka
На сайте с 27.02.2009
Offline
40
#1

Попробуйте открыть все файлы, нажать CTRL+F -> там есть вкладочка "заменить", там вводите что найти и на что ЗАМЕНИТЬ.

Ой сорри запарился написал тут,простите уж :)

[Удален]
#2

Papochka, откройте 3 сотни документов и посмотрим что с вашей машинкой будет :)

Papochka
На сайте с 27.02.2009
Offline
40
#3

Сашко, У меня норм,незнаю как у вас))

Не конечно можно по 1 но гемморно.Больше Я вариантов не вижу.Може кто возьмётся за эту рутину :)

[Удален]
#4

regta, достаточно простой макрос на VBA, стоит поискать на соответствующих форумах, не исключено что существует и какая-либо надстройка для пакетной работы с офисными документами

[Удален]
#5

ищем вкладку - свойста документа - колонинтулы.

в редакторе Word 2007, то на вкладке Вставка в группе команд Текст нажмите кнопку Экспресс-блоки и в раскрывшемся списке выберите команду Поле. Повторите вышеописанные действия для вставки поля в колонтитул.

Кроме ручной вставки поля в колонтитулы, можно воспользоваться и специальным макросом, приведенным ниже. Вы можете вставить либо только имя текущего документа, либо путь и имя. Если вам нужно только имя, то удалите в коде знак комментария («'») у оператора .Fields.Add

Range:=hfRange, Type:=wdFieldFileName и поставьте такой значок у нижнего оператора .Fields.Add Range:=hfRange, Type:=wdFieldEmpty, Text:="FILENAME \p".

МАкрос

Sub filenametofooter()

'Вставка в нижний колонтитул пути и имени активного документа

Dim hfRange As Range 'диапазон колонтитулов

Set hfRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

With hfRange

.Delete

' .Fields.Add Range:=hfRange, Type:=wdFieldFileName 'поле имени файла или

.Fields.Add Range:=hfRange, Type:=wdFieldEmpty, Text:="FILENAME \p" 'поле пути и имени файла

End With

ActiveDocument.ActiveWindow.View.ShowFieldCodes = False 'скрываем коды полей, если они отображались

ActiveWindow.View.Type = wdPrintView 'переключаемся в режим Разметка страницы

ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit 'формат по ширине страницы

End Sub

Объединить все файлы в один файл ворд можно так

1. Открыть первый документ.

2. Поместить курсор в конец документа.

3. Выбрать в меню Вставка/Файл и удерживая Ctrl выделить нужные документы. Нажать "Вставить".

главное чтобы памяти у компьтера хватило, но лучше ручками :)

Onna
На сайте с 10.04.2007
Offline
77
#6

burunduk, +1 про макрос. Он простой, записать можно даже в автоматическом режиме (сервис-макрос-начать запись). В одном документе сделать нужную замену телефонов, сохранить макрос. А дальше или вручную натравливать макрос на каждый файл (что долго), или искать возможность пакетной работы с *.doc

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