Страница 1 из 1
У меня вот эта х..ня не работает
Добавлено: 13 авг 2009, 22:52
Busine2009
Sub КолонтКакВПредУбир()
'Вставляем во всем документе в нижнем колонтитуле галочку Как в предыдущем
Dim x As Integer
For x = 2 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Footers(wdHeaderFooterPrimary).LinkToPrevious = True
Next
End Sub
Re: У меня вот эта х..ня не работает
Добавлено: 22 авг 2009, 18:34
Busine2009
Нашёл способ, чтобы работало. Смысл, чтобы во всех нижних колонтитулах стояло Как в предыдущем. У меня почему-то не получается это сделать с помощью этого макроса. Но я нашёл, как заставить работать этот макрос. Для этого я сначала запускаю противоположный макрос, который во всех нижних колонтитулах убирает Как в предыдущем, а потом уже тот, который ставит Как в предыдущем.
Код: Выделить всё
Sub КолонтКакВПредУбир()
Dim x As Integer
' Убираем Как в предыдущем
For x = 2 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Footers(wdHeaderFooterP rimary).LinkToPrevious = False
Next
' Делаем Как в предыдущем
For x = 3 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Footers(wdHeaderFooterP rimary).LinkToPrevious = True
Next
End Sub
Вот такие вот пироги.