Всем привет, подскажите плиз!
Ситуация: есть в ворде верхние и нижние колонтитулы. Верхние нумерация документа (17 стр), нижние выводят фразу - " ххх "
Можно ли как то програмнно удалить всего один нижний колонтитул на 6 стр., разрыв не катит, прерывается нумерация на верхнем колонтитуле. Нипишу что делаю мож чет не так.

sub macros()
Dim rng As Range
Dim intPages As Integer
Dim objSection As Section

Set rng = ActiveDocument.Content
intPages = rng.Information(wdNumberOfPagesInDocument)
If intPages > 1 Then
Set objSection = ActiveDocument.Sections(1)
objSection.Footers(wdHeaderFooterPrimary).Range.Text = " ххх "

With objSection.Headers(wdHeaderFooterPrimary).Range.Font
.Name = "Times New Roman"
.Size = 12
End With


End If
end sub
короче я этим вставила колонтитул на все стр, а как вот пропустить 6 стр, или как удалить ее но чтоб на остальных осталась.
Пыталась так:
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="6"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
в итоге удаляет на всех стр :(
Помогите!