Колонтитулы: как в предыдущем и поля

[Busine2009]

Добрый день!
Не подскажите, что в этом коде не так. Назначение этого кода: убрать во всех верхних колонтитулах Как в предыщем и превратить Поля (в колонтитулах есть поля) в обычный текст.

Sub КолонтКакВПредУбир()
'Убираем во всем документе в верхнем колонтитуле Как в предыдущем и удаляем поля
Dim x As Integer
Dim oSec As Section
Dim oHeadr As HeaderFooter
'Убираем Как в предыдущем
For x = 2 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Headers( wdHeaderFooterPrimary).LinkToPrevio us = False
Next
'Удаление полей в верхних колонтитулах
For Each oSec In ActiveDocument.Sections
For Each oHeadr In oSec.Headers
oHeadr.Range.Fields.Unlink
Next oHeadr
Next oSec
End Sub

[viter.alex]

А что, собственно, не работает? Связь не разрывается между колонтитулами?
Сюда ходи. Может поможет.

[Busine2009]

Проблема в том, что как это ни странно, но вторая часть этого кода - а именно

'Удаление полей в верхних колонтитулах
For Each oSec In ActiveDocument.Sections
For Each oHeadr In oSec.Headers
oHeadr.Range.Fields.Unlink
Next oHeadr
Next oSec
End Sub

срабатывает раньше первой. Но я точно не устанавливал тонкостей. Т.е. происходит что: поле превращается в текст и только затем отжимается Как в предыдущем. В результате в разных раздел оказывается один и тот же колонтитул. Это еще не все. Я разделил эти 2 части на 2 макроса: сделал 2 кнопки, и что удивительно - их нельзя нажимать сразу одна за другой, потому что второй макрос снова опережает первый. Хотя если взглянуть на кнопку отмена действий (на стрелочку), то порядок действий правильный. Но если второй макрос запустить чуть позже, то всё срабатывает. В результате я в первом макросе добавил появляние Окна с сообщением: Закрой и посчитай до 10.

[viter.alex]

нужно проверить разрывается ли связь с предыдущим. Дело в том, что ошибка не возникает, но и связь не разрывается.

Поставь Breakpoint на операторе Next из первого цикла и посмотри в Immediate что даст строка ?ActiveDocument.Sections(x).Headers ( wdHeaderFooterPrimary).LinkToPrevio us
Если связь с предыдущим разделом разорвана, то даст, естественно False

[Busine2009]

Да я проверил с помощью Breakpoint and Immediate - связь разрывается: Как в предыдущем убирается.
Вот файл. Если хотите проверьте.
В конце документа код макроса.
Только что ещё кое-что обнаружил: после применения макроса во всех колонтитулах становится название того раздела, где стоял курсор, а не Заголовка 1.

[viter.alex]

Проверил. Все работает. Результат в приложении. Использовал макрос, приведенный в первом посте

[Busine2009]

Сообщение от viter.alex

Проверил. Все работает.

Тогда у меня один вывод, что у вас настройки в VBA свои. Т.к. у меня не работает на 2-х компьютерах.

[Busine2009]

У меня не работает макрос по превращению полей в колонтитулах в текст: в каких-то колонтитулах правильно работает, в каких-то нет. Буду использовать ручное преобразование полей в текст.