У меня вот эта х..ня не работает

[Busine2009]

Sub КолонтКакВПредУбир()
'Вставляем во всем документе в нижнем колонтитуле галочку Как в предыдущем

Dim x As Integer


For x = 2 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Footers(wdHeaderFooterPrimary).LinkToPrevious = True
Next


End Sub

[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 

Вот такие вот пироги.