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

[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