Консультация № 141619
17.08.2008, 16:51
0.00 руб.
17.08.2008, 16:55
0 1 1
Добрый день!
Требуется во многих документах Word (установлен 2003) заменить некоторые фразы в множестве документов, для этого я воспользовался макросом, а также пробывал допольнительные программы на его основе. НО по умолчанию во всех документах колонтитулы выключены, а после замены текста они включаются (верхний и нижний) и нарушается визуальное восприятие текста - происходит смещение вниз, хотя на печать это не влияет. Может кто подскажет как полностью запретить использование колонтитулов Word`ом или может что-то подправить в макросе?

Макрос находиться здесь:
http://www.gmayor.com/batch_replace.htm

А это страница по этой тематике:
http://wordexpert.ru/2008/05/07/poisk-i-zamena-teksta-vo-mnogih-dokumentah-odnovremenno/

Обсуждение

давно
Специалист
399094
201
19.08.2008, 23:24
общий
это ответ
Здравствуйте, Sergey V. Gornostaev!
Попробуйте после того как отработает Ваш макрос выполнить еще и такую процедуру
Public Sub DelHeaders()
Dim i As Integer
For i = 1 To Documents.Count
For Each aStory In Documents(i).StoryRanges
If aStory.StoryType = wdPrimaryHeaderStory Or aStory.StoryType = wdPrimaryFooterStory Then
aStory.Delete
End If
Next aStory
Next i
End Sub
Она удалит верхний и нижний колонтитулы во всех открытых документах Word
Форма ответа